
File No. S360-36 
GY28-2013-6 



Program Logic 



Version 8.1 



IBM Systein/360 Time Sharing System 
Command System 



Provides descriptions of the internal logic of each 
Command System module for persons responsible for pro- 
gram maintenance and modification. The Command System 
consists of modules that process the commands available 
to the user, operator, manager, and administrator of 
the System/360 Time Sharing System. 

Provides the following information for each module: 
basic function, entries, modules called, method of 
operation, exits, error conditions, system control 
blocks used, and a flowchart. 

Before using, be familiar with the contents of: 
IBM System/360 Time Sharing System : 
Concepts and Facilities , GC28-2003 
Command System User's Guide , GC28-2001 
Manager's and Administrator's Guide , GC28-2024 
Operator's Guide , GC28-2033 

Have available for reference: 

IBM System/360 Time Sharing System; System Mes- 
sages , GC28-2037 



Seventh Edition CSept«aber 1971.) 

This is a major revision of, and makes obsolete, 
GY28-2013-5 and Technical Newsletter GN28-316i|. This 
edition documents the new K1YW3RD, CHGPASS, FLOW, 
MCAST, and MCASTAB commands, as well as a set of atten- 
tion response cownands — EXIT, PUSH, RTRN, STACK, and 
STRING, Significant changes will be indicated by a 
vertical line beside the changed text. 

This edition is current with Version 8 Modification 
1 of the IBM Sy8tein/360 Time Sharing System CTSS/360), 
and remains in effect for all subsequent versions or 
modifications of TSS/360 unless otherwise noted. Sig- 
nificant changes or additions to this publication will 
be provided in new editions or Technical Newsletters. 
Before using this publication, refer to the latest edi- 
tion of IBM Sy3tem/360 Time Sharing System t Addendum , 
GC28-2013, which may contain information pertinent to 
the topics covered in tJhis edition. The Addendum also 
lists the editions of all TSS/360 publications that are 
applicable and current- 

Reguests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality, 

A form is provided at the back of this publication for reader's com- 
ments. If the form has been removed, comments may be addr^sed to IBM 
Corporation, Time Sharing Syat«[i/360 Programming Publications, Depart- 
ment 643, Neighborhood Road, Kingston, New York 12ii01 

© Copyright International Business Machines Corporation 
1967, 1968, 1969, 1970, 1971 



PREFACE 



This raaiwal, a guide to the logical 
structure and functions of the TSS/360 Com- 
mand System, is designed to be used with 
the individual assembly listings; it does 
not discuss the machine- language module 
structure. The symbols that appear here 
correlate with those used in the listings. 

This manual is intended for persons 
involved in program maintenance and 
modi fi cation . 



within the command system, its common 
and symbolic module names will be 
listed; for other modules, the common 

name and symbolic name, if applicable, 
are given. 



An explanation of module operation, 
with a discussion of the principal 

logic paths. 



The manual has 8 sections. Section 1 
introduces the Command System. Sections 2 
through 7 describe the logical divisions of 
the system; Command Controller, Text Edi- 
tor, command routines, macro instructions, 
source language processing, and interrup- 
tion processing; Section 8 contains flow- 
charts for the command system modules. The 
manual also includes two appendixes: Sys- 
tem control block usage and a copy of 
SYSPRO. 

Each description of a command system 
module includes: 

• Common and symbolic module names. 

• All entry points to the module, and the 
use of each entry point. 

• Basic module functions. CUnless other- 
wise noted, modules will operate in 
conversational and nonconversational 
modes . ) 

• All module exits. In most cases, the 
standard exit is a return to the cal- 
ling routine, via the RETURN macro 
instruction. 

• All modules called and the reason for 
each call. If the called module is 



All error conditions recognized by a 
module, and the actions taken for each 
condition. 



• All system control blocks referred to 
by a module. 



• Flowcharts. 

To use this publication you need the 
information ins 

IBM Systero/360 Time Sharing System : 

Concepts and Facilities , GC28-2003 

Command System User's Guide , 
GC28-2001 

Manager's and Administartor* s Guide , 
GC28-2024 

Operator's Guide , GC28-2033 

If you intend to use this book to debug 
programs, you need the following reference 
publication: 

IBM Svstem/360 Time Sharing System: 
System Messages , GC28-2037 
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SKTION 1: COMMAND SYSTEM OVERVIEW 



CQMMIIND SYSTEM FUNCTIONS 

The command system has three basic functions: 

1. Receive and interpret commands submitted by users of the time- 
sharing sharing system. 

2. Carry out the actions requested by each valid command. 

3. Inform the user of the results of the actions performed or, if a 
command is invalid, inform him of his error so that he may correct 
it. 

The command system has been designed to meet a number of major objec- 
tives that include facilities to: 

• Provide the user with the ability to define his own commands. 

• Permit the user to call his programs or procedures by direct 
commands. 

• Standardize command syntax. 

• Provide default and profile facilities. 

• Provide a general editing capability. 

The command system accepts all commands described in Command System 
User's Guide , Manager's and Administrator's Guide , and Operator' s Guide 
(Full titles and order numbers of these publications are shown in the 
preface.) Commands may be accepted directly from a user at his termin- 
al, or indirectly from a set of commands previously stored in the time- 
sharing system. The command system also processes a number of macro 
instructions that may be employed in user object programs; the expansion 
of these macro instructions results in object code that will link to the 
appropriate command system module at execution time. 

The command system also contains a collection of service routines, 
almost all of them privileged, which operate in virtual storage under 
the control of the task monitor. 

Each TSS/360 task includes a task monitor and some portion of the 
command system. The specific modules that appear in the task depend, of 
course, on the actions requested in that task. The task monitor handles 
all interruptions, and calls upon the command system as needed. In 
turn, the command system calls upon the TSS/360 general service, catalog 
service, and access method routines; it also requests system functions 
through supervisor calls, such as VSEND and TSEND. All actions per- 
formed by the resident supervisor, such as paging and time slicing, do 
not influence the command system operation- 

COMMAND SYSTEM ORGANIZATION 
Command Controller 

The command controller consists of the Command Analyzer and Executor 
as the highest control routine; to this routine is added other routines 
to handle procedures, defaults, synonyms, and comments. Also, the Ian- 
Section 1: Command Syston Overview 1 



giiage processor controllers and text editor are driven by the command 
controller. 

The basic control of the command controller is done by the Command 
Analyzer and Executor. The Command Analyzer and Executor is invoked 
upon initial task entry. It may also be invoked recursively by a user^ 
upon intervention of an object program, or during language processor 
control. This routine calls the Verb Scanner to determine the verb type 
from the control dictionaries. The verb operands are translated and a 
command routine is called to execute the verb- 
Normal procedures are handled by the Procedure Expander, which scans 
for procedure parameters, retrieves the procedure from the procedure 
library, and performs character substitution of the parameter specifica- 
tion for each occurrence of the dummy parameter in the procedure model. 

Text Editor 

The Text Editor commands help make it possible for data sets to be 
created and maintained. Lines of data may be edited within an existing 
VISAM data set or as they are entered into a VISAM data set. The User 
Control routine provides the principal interface between the Text Editor 
routines and the remainder of the command system, as most Text Editor 
routines operate in a nonprivileged state. The Edit Controller, which 
is external to the text editor (but also nonprivileged), provides an 
interface with the other modules in the system. All Text Editor com- 
mands are BUILTIN-created; each BPKD points to a common entry point 
located in the User Controller. After locating the BPKD, User Control 
supervises the execution of the command. 

Command Routines 

The largest part of the command system consists of command routines, 
almost all of which are privileged BUILTINs. Typically, each of these 
processes a single command or macro instruction by calling general ser- 
vice routines and other command routines, in a prescribed order, to 
carry out the requested actions. The operation of the command routines 
is basically the same: They are called by the Command Analyzer and 
Executor (or by another command routine or macro instruction); they make 
use of routines in the command controller to get input and issue output; 
they call general service routines as needed; and, when finished, they 
return to their calling routine. For an external description of the 
commands, consult the appropriate guide (listed in the preface). The 
command routines are contained in Section 4 with the exception of the 
PUNCH, PRINT, WT, RT, ASNBD, FORCE, HOLD/DROP, MSG/BCST, REPLY, SHUT- 
DOWN, and XWTO routines. These routines are described in the Operator 
Task and Bulk I/O PLM , GY28-2047. 

Several modules that perform support functions for the command rou- 
tines are also described in Section 4. 

Macro Instruction Processing 

The command system handles many macro instructions. In general, 
expansion of those macro instructions produces object coding that links 
to a command system routine. Usually, the linkage is to a special macro 
instruction entry point in the routine so that the routine will not 
issue messages, but instead will return a code to show the processing 
results. Some command system modules (for example, those used to access 
SYSIN and SYSOUT) are linked to only by macro instructions. Other com- 
mand system routines may be called by macro instructions and commands. 
See Section 5. 



Source Language Processing 

Three command system modules, LICMAIN, GETLIip:, and PUTDIAG, serve as 
an interface between the language processors (FORTRMI compiler, assembl- 
er, and linkage editor) and the user, or his prestored source program. 
These modules get parameters for the language processors, get source 
lines, and pass language processor diagnostics to SYSOUT. See Section 
6. 

Interruption Handling 

The command system includes several modules that are entered by the 
task monitor for the following types of interruptions: the external 
interruption caused by intertask messages; some program interruptions; 
and the initial attention interruption of a conversational task. See 
Section 7. 

COMMIkM) SYSTEM MODULE INTERACTIONS 

Command system modular interaction is most easily understood as a 
function of time. Thus, the figures shown in this section are develop- 
mental, tracing command system interaction during the execution of spe- 
cific functions. The first two are initialization functions: 

Figure 1 - Explanation of the LOGON Procedure 
Figure 2 - Initial Command Entry Procedure 

The command entered may be a BUILTIN call (such as CDS or EDIT) , a tex- 
tual procedure, or a "direct call." (This last could be a dynamic 
statement or a LOAD, UNLOAD, or parameterless CALL command.) Figures 3, 
4, and 5 demonstrate the comuand system's general operation in these 
cases. Figure 6, the last figure in this section, presents the overall 
linkage of command system modules. 

The command system contains two centers of information, the source 
list CSL) and the combined dictionary. All commands in the system are 
read from the source list. The combined dictionary is the source of the 
names of all procedures, synonyms, defaults, and command variables. 

The source list is a list of pending transactions- When the proce- 
dure capability was added it became possible to stack commands. The use 
of a procedure verb will result in the procedure expander placing more 
verbs in the source list. Execution continues until all of the verbs in 
the source list have been processed. 

COMMAND SYSTEM OPERATION 

The following paragraphs describe the general operation of the com- 
mand system. The description begins with the command system operation 
at system startup, and continues to system shutdown. 

System Startup 

At system startup, command system initiates the main operator's task, 
and peforms the following prefatory functions: opens the operator's 
log, initiates the batch monitor task so that it can start operating, 
and readies the system for normal time-sharing operations. 

Conversational Task Initiation 

When a user causes an initial ATTENTION at his terminal, by pressing 
the attention key or by dialing the telephone number to initiate conver- 
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sational operations, the resident supervisor establishes a task for him. 
The task monitor links to the command system's Initial Attention Inter™ 
rupt Processor, which performs a variety of task initialization func- 
tions; these include definition of the system library and other system 
data sets, and identification of the user's terminal as the SYSIN and 
SYSOUT for the task. The LOGON command routine is then called to start 
conversational processing by prompting the user for his credential s« 

Nonconver sational Task Initiation 

The user has three ways to start nonconversational tasks: he may 
issue an EXECUTE or BACK command from his terminal after he has logged 
on; he may issue a bulk input/output command CPUNCH, WT, or PRINT); he 
may submit a punched sequence of commands to the operator ^o will input 
them via a high-speed card reader or the RT command. 



lAlP (CZAHB) 
Save Task Monitor 
linkage in 
NTCTMR . 




C,-,i, 


J red from Task Monitor on 
'al attention Interruption 




init 




VMTI (CZAAF) 
Adds public devic 
Opens SYSCAT 
Opens SYSSVCT 

Open SYSLIB DO 


es 






DDEF (CZAEA): Create JFCBs 
for oH system data sets 








FINDJFCB (CZAEB)-. Find 
SYSLIB DCB 




i 




TIME (CZAVB).. Initialize time 










VMTI-2 (CZATD) 
Open SYSMLF 
Find VPAM member SYSMLF 






LOGON (CZAFM) 

• Get LOGON parameters from real core via SVC. 

• Validate LOGON parameters. 

• Complete user tables, 

• Put salutation message. 

• Tell operator. 










LOGON2 (CZBTB) 

• Open SYSLIB and USERLIB DCBs. 

• Find USERLIB (SYSPRO) and USERLIB (SYSMLF). 

• Open SYSLIB (SYSPRO) and SYSLIB (SYSPRD). 

• Construct combined dictionary from USERLIB 
and SYSLIB. 

• Enable Command System Attention Handler. 




1 
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Figure 1. Explanation of LOGON procedure 



As a result of the QLE Set up by VMTI-2 during LOGON, the Command Analyzer and Executor Is called to service the user's commands 



COMMAND ANALYZER (CZASA1) 
Calls CZASCl to create new 
sub list 

Calls CZASA2 to isolate verb 



SOURCE LIST HANDLERS 



VERB SCANNER (CZASA2) 
Recognizes that there is nothing 
in the SL subllst (EOl). 
Colls CZASC4 to process the 
E marker 



Begins scanning at start of 
Sublist again. Isolates and 
validates verb. Returns 
pointer to Command Analyzer. 



CZASCI : Recognizes 
that there is no 
previous sublist and 
sets finit sublist 
flag on. 



CZASC4: Sets up to read 



a new line into the SL at 
the first sublist position. 



Puts fine in SL sublist. 
Inserts E marker after this 
line. Verb now available 
for vert) scanner 



GATE(CZATCI) 
Prompts 



Reads command 
from user 



USER GETS 

UNDERSCORE, 

BACKSPACE 



USER ENTERS 
COMMAND 



Calls CZASD to 11 nd verb 
in combined dictionary. 



Command is one of these types: 

• BUILTIN 

• Textual Procedure 

• Direct call 




Figure 2. Initial command enliry procediire 



For an EXECUTE or BACK command, the Command Analyzer and Executor 
reads the command entered at the terminal and, after checking the com- 
mand name, calls the EXECUTE or BACK command routine. EXECUTE validates 
the comnand operand, and sends a request to the batch monitor to start a 
nonconversational task- The batch monitor requests a task status index 
CTSI) for the new task, and initiates the task by sending a message to 
it; the resulting interruption acts in the same manner as the initial 
attention interruption of a conversational task. The task monitor and 
the command system of the new task respond to the interruption by per- 
forming the necessary task initialization, and the command system then 
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COMMAND ANALYZER 
(CZASAI) 

Has defermlned that the 
verb is a valid BUILTIN 
procedure 



BUILTIN PROCESSOR (CZASA2) 
Resolves BPKD symbol. 




Invokes PCS Phase II 
processing (CZANA) 
if legal PCS procedure 
being processed. 
Updates the source 
list. 



PROCESSING 

MODULE 
Could be a 
command like 
DDEForPC? 
or a legal PCS 
procedure 



CZASA5 



Uses Verb Scanner 
to get next verb 

and continues 
processing 



P ROCEDURE PARAMETER EXPANDER 
CZATE3: Analyze parameters 

CZATE4: Fill in any default 
values 



USER CONTROL (CZAMZ) 
CZAMZ1: Uses Task Monitor 
to dispatch nonprivileged 
BUILTIN. R13: reflects Tosk 
Monitor Save Area. 
R14: CZAMZ19. 
R15: Address of BUILTIN. 
PSW: Address of BUILTIN. 



LVPSW 



CZAMZ2: 



Cleans up and 
does level \- 

checking. In this 
instance, returns to 
CZAMZI's calling 
routine at a special 
entry point. 



,CZAMZI9 



H 



TASK 
MONITOR 



Dispatches 
routine 
addressed 
in PSW 



NONPRIVILEGED 
BUILTIN: 



May be user 
code or an 
LPC like the 
Editor. 



RETURN 



Figure 3, Execution of BUILTIN procedure 



fetches its coiranands from the prestored data set that serves as SYSIN 
for the nonconversational task. BACK changes the mode of a task from 
conversational to nonconversational; it uses the batch monitor only to 
ensure that a new background task is permissible at this time and^ if it 
is, sets the TSI to indicate nonconver sat tonal mode. Commands will sub- 
sequently be read from the data set specified in the BACK command. 

PUNCH, PRINT, and WT commands may appear in conversational and non- 
conversational tasks; RT commands may be issued only in the operator's 
conversational task. For each of these commands, the Command Analyzer 
and executor validates the command name, and calls the BULKIO preproces- 
sor. The preprocessor ensures that the command operands are acceptable; 
the user will be prompted, if necessary, and the preprocessor concludes 
with a request to the batch monitor for task initiation. The batch mon- 
itor operates in the same way as it would for an EXECUTE. There is no 
actual SYSIN for bulk input/output tasks. The SYSIN is a sequence of 
object code supplied as part of the command system; it is not the usual 
prestored series of commands. 



COMMAND ANALYZER 
(CZASAl) 


















Has def-ermlned that input 
verb represents a textual 
procedure 




PROCEDURE PARAMETER EXPANDER (CZATEl) 






• Locate procedure in P ROC LIB. 

• Isolate and validate verb. 

• Set the starting address in the source 
list for a parameter scan. 








BUILDLIST (CZATE2) 

Build the ELISTand 
the INST from dummy 
parameters. 








SCAN (CZATE5) 




^.^;v^ 






string fragment for 
both BUILDLIST and 

LISTEQ 


< 


^Callina^X'^% 


LISTEQ fCZATE2) 


s^ a rame te rex""*^ 
No 




Build PLIST from 
calling parameters. 








DEFSEARCH {CZATE4) 
Insert default 
values into PLIST. 












SUBPARAMETER SEARCH 




CZATE10: Seeks 
sufc^arametere 
































^ 




















VERB SCANNER (CZASA2) 
Isolate and analyze verb 
from source list - as 
created by Procedure 
Parameter Expander. 




Process 


verb as required. 









Figure *♦. Execution of a textual procedure 



Processing A Command 

The Command Analyzer and Executor starts command processing by 
obtaining the next command to be processed from the tasks' SYSIN. The 
routine checks the validity of the operation before calling the appro- 
priate command routine. The command routine, after verifying the corre- 
ctness of the command operands, calls on TSS/360 general service rou- 
tines, and other command routines, to carry out the requested actions, 
and then returns control to the Command Analyzer and Executor- This 
routine fetches the next command from SYSIN, and the entire processing 
cycle is repeated. 

The verification performed by the command routine makes use of check- 
ing routines included as part of the SCAN package. If errors or omis- 
sions are found, the command routine will issue messages to the task's 
SYSOUT. In the conversational mode, the user may make corrections when 
responding to system messages, or he may reenter the command. Since the 
user is not present for a nonconversational task, any message that 
requires a user response results in termination of the nonconversational 
task. 
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COMMAND 
ANALYZER (C7ASA1) 
Has decided that verb 
is not a procedure. 



ff the command 
processed is AT, 
no further PCS 
processing is done. 
Otherwise 



Updates the source 
fist to end of phase 
or sentence . 

Gets next verb and 
continues 



LOAD, UNLOAD, CALL (without parameters) 



PCS COMMAND ROUTINES: Begin 
processing such command as DISPLAY^ 
DUMP, REMOVE, QUALIFY, AT, 
and CALL (with parameters). 



PCS INPUT 

(CZANA) 

Examines and 

processes the 

input string. 



Returns to 
calling routine 



PCS OUTPUT 

(CZAPB) 

Calls a Command 

System routine to 

execute function. 



Exception; when CALL 
is the command. 




LVPSW 



CZAMG2: Find the 
name of the routine 
to be called - giving 
CALL a parameter 



ROUTINE THAT IS 

CALL'S PARAMETER 

Execute 



TASK MONITOR 



Dispatches routine 
whose address is 
in the PSW. 



U SER CONTROL (C ZA MZ) 
CZBTG2: Executes 

command. For LOAD or 
UNLOAD operation returns 
toCZASAI. However, 
CALL still needs a 
parameter. 




CZAMZ1: Uses Task 

Monitor to dispatch 
requested routine. 
R13: ptr. to save area 
R14: CZAMZ19 
R 15 and PSW: address of 
routine disoatching 



Note: The PCS logic shown 
in the center of this diagram 
is not described further in 
this publication. See PCS 
PLM. 



f \ CZAMZ2: Cleans 

CZAMZiy up and does level 
/ / rhecking. Normally 

e^Its to CZAMZTs 
calling routine. In tHis 
case, exit is one step 
^^urther back . 



Figure 5. Execution of PCS commands with Direct Call 



Terminating A Conversational Task 

Since conversational users are available to handle error conditions ^ 
conversational tasks are terminated only at the user's request, except 
in cases of system shutdown, major system errors, or terminal failure. 
The LOGOFF command routine handles the normal termination; this ensures 
an orderly conclusion to the task. When LOGOFF has finished, it informs 
the task monitor which eliminates the task by deleting its task status 
index and by making its storage available to other tasks. The only 
trace of the task remaining after this operation is the cataloged data 
sets, if any, that have been retained. 

Terminating A Nonconversational Task 

Nonconversational tasks may be terminated either normally or abnorm- 
ally. Normal termination is the same as a conversational task termina- 
tion except that the SYSOUT data set, which contains all system communi- 
cations to a task, is printed. The SYSOUT data set will be listed at 
the computer center. Another difference is that LOGOFF, when processing 
a nonconversational task, notifies the batch monitor that the task has 
ended. This notification is required to permit the batch monitor to 
update its records. 
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Figure 6. Modular relationship of the command system 

A non conversational task will be abnormally t€?rminated whenever an 
uncorrectable error is detected. In this case, the command system for- 
ces a premature logoff. The SYSOUT of the task will be printed, and it 
will include a statement that reveals the cause of the abnormal 
termination. 
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Processing Macro Instructions 

Coiranand system makes no distinction between processing a command or 
processing a macro instruction, except in one situation. When some com- 
mand routines are handling a macro instruction, they set indicators so 
that the macro instruction will not issue messages, but will return to 
the calling routine a code that reveals the success or failure of the 
routine. In all other aspects, the command routine operation functions 
in the same manner as if a command were being processed. 

Some command system routines are accessed only by macro instructions. 
These routines do not ordinarily issue messages, but they do return a 
code to the calling routine. 

When a macro instruction is being processed, there is a direct link 
between the user's object program and the command system routine; the 
Command Analyzer and Executor is not involved. This means that the cal- 
ling routine must perform any error recovery procedures that may be 
required. 

System Shutdown 

When the main operator issues a SHUTDOWN command, every active task, 
except the operator's, is terminated. Conversational users will receive 
messages that inform them that their tasks have been terminated. Non- 
conversational tasks will be terminated by the batch monitor, which 
issues a message to the SYSOUT of each task to explain the reason for 
termination. After all tasks have been terminated, the operator is 
informed, and his own task is terminated. He may then physically shut 
down the system. 
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SECTION 2: COMMAND CONTROLLER 



The Coranend Controller consists of the Command Analyzer and Executor 
routine, and six system support routines. The Command Analyzer and 
Executor (hereafter: Command Analyzer) obtains the next command to be 
processed, and determines the verb type from the control dictionaries. 
The verb type dictates the remaining scan to be uscBd for each verb. The 
names and functions of the six system support routines are: 

Routine Name Function 

GATE Reads system input CSYSIN) and writes system output 

CSYSOUT) . 

SCAN Fetches and validates command parameters for both 

privileged and nonprivileged routines. 

User Prompter Communicates with system users. 

Attention Handler Accepts and interprets the synchronous attention 

interrupts from the task monitor. 

Source List Handler Services the source list. 

Control Dictionary Provides access to the combined dictionary. 
Handler 

The Comnend Controller provides an interface between the remainder of 
the command system, and the SYSIN and SYSOUT data streams. Command pro- 
cessing is initiated by the Command Analyzer, which is the basic control 
routine. When each command has been completed or terminated, control 
returns to the Command Analyzer. The six support routines are employed 
as needed. The following paragraphs describe the overall operation of 
the Command Analyzer, and the support routines. 



COMMAND ANALYSIS AND EXECUTION 

Command analysis and execution is generally done in three steps: (1) 
the verb is recognized, C2) the verb operands are translated, and (3) 
the verb is executed. The Command Analyzer is invoked upon initial task 
entry. In addition, it may be invoked recursively by a user, upon 
intervention of an object program, or during control of language proces- 
sors. Verb resolution is performed by the Command Controller after cal- 
ling the Verb Scanner (a part of the Command Analyzer) . A transient 
command that is designed to be passed to a language processor at a spe- 
cific place will cause the remainder of the line to be built into a 
single string, and passed to the invoked language processor, if a pro- 
cessor is defined. 

When the verb is a user or system procedure verb, command analysis 
calls the Procedure Expander to analyze the pararoe^ters, and to expand 
the procedure. The output from the procedure expansion is added to the 
source lists. 

When command analysis uncovers a conditional statement, the PCS Phase 
1 IF routine is called to expand the condition, and the object executor 
to determine the value of the IF condition. If the condition was not 
true, a special scanner is invoked to find the end of the statement. 
Otherwise, the text of the statement is begun by the Command Analyzer. 
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An AT verb invokes the AT Analyzer and enables the dynamic statement 
switch. Thus, the remaining statements in the line are analyzed, but 
they are not executed until the AT is satisfied. In this case, state- 
ments which are not executable dynamically are recognized, and appropri- 
ate diagnostics are produced. 

If the verb was found to be DISPLAY, DUMP, SET, or a program call, 
then the program parameter list analyzer (PCS FORMLIST and PCS Phase 2 
parameter processing) is called to analyze the parameters; the commands 
are invoked by the appropriate execute routine: DISPLAY/DUMP, SET, or 
LINK. 

Recognition of a DEFAULT or SYNONYM verb results in a call to the 
DEFAULT/SYN processor to make the appropriate changes to the primary 
control dictionary. 

If the verb was GO, then the last uncompleted program will be 
resumed- Any commands that were still unexecuted in the source list at 
the time of intervention will become eligible for execution upon comple- 
tion of the uncompleted routine. Any commands in the source list fol- 
lowing GO will be discarded. 

When a program issues an LPCINIT macro instruction, it causes the 
Edit Controller to be initialized, and the calling program is treated as 
a language processor controller. A subsequent LPCEDIT macro instruction 
issued by the language processor controller will cause the LPC to 
receive input. Any subsequent EDIT commands recognized by the Command 
Analyzer will cause the EDIT command processor (a part of the User Con- 
troller) to be called. The EDIT command processor in turn calls the 
appropriate Edit routine, which, on completion, cixits back through the 
EDIT processor to the Command Analyzer. 



GATE ROUTINE 

Normally, GATE either reads from SYSIN and/or writes on SYSOUT, as 
requested by the calling routine. Four types of writing capability are 
provided: 

• Write with available response (fetch the next record from SYSIN 
after writing) 

• Write with spontaneous response (read the next record from the key- 
board after writing) 

• Write with no response 

• Write with carriage control and no response 

SCAN PACKAGE 

This package is used by command routines to validate command parame- 
ters as well as to fetch those parameters. The SCAN package consists of 
six routines, whose names and functions are: 



Routine Name 



NEXTPAR 



CHEKDS 
ALFNUM 



Function 

Locates the next parameter field, and inspects it for 
invalid characters - 

Checks a data set name for valid form and characters. 

Checks for a valid symbol. 
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NUMSTG Checks for a string of valid numeric characters. 

CHKNUM Checks a string of numeric characters, and converts them 
to a binary value. 

AIjFBET Checks for a string of valid alphabetic characters. 



USER PROMPTING 

System programs use a centralized message communication facility to 
communicate with external users of TSS/360 Messages, responses, and 
explanations for messages are defined by system users. All of this 
information is cataloged in a central filej a call to the User Prompter 
retrieves it. When the User Prompter is called, via the PRMPT macro 
instruction or the PRMPT command, it converses directly with the extern- 
al user by displaying messages and explanations, and by reading his 
responses. When the conversation has been completed, the User Prompter 
returns to the calling program a code that indicates the response to the 
original message. 



ATTENTION HANDLING 

The Attention Handler accepts interruptions from the task monitor, 
and interprets any input which may occur. The possible responses by the 
system are as follows: 

1. Intervention is prevented if the Attention Interruption Prevention 
Switch (AIPS) is set and control is returned normally. 

2. A user routine (specified in an AETD macro instruction) is given 
control to handle the attention interruption, 

3. The current process is interrupted, and commands are accepted from 
the console at a new level. 

4. The attention interruption is ignored Can immediate carriage return 
at the terminal) . 



SOURCE LIST HANDLING 

The Source List Handler processes all entries and deletions to the 
source list. The source list contains all of the commands that have 
been entered into the system by the user. Whenever there are no com- 
mands in the source list, the Source List Handler will call GATE to 
issue an underscore and backspace to the user. 

The following routines allow manipulation of the source list: 

1. PUSH/POP routine. 

2. Buffer fetch routine. 

3. Marker processors. 
<♦ . Synonym expander. 

5. UPDATE routine. 

6. SYSIN routine. 
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CONTROL DICTIONARY HANDLING 

The Control Dictionary Handler processes all requests regarding the 
combined dictionary. The combined dictionary, which is the source of 
the names of all procedures, synonyms, and defaults, is created by the 
LOGON2 routine CCZBTB) . 

This routine utilizes a set of internal subroutines and macro 
instructions, which operate on any dictionary of the form of the control 
dictionaries. The following routines and handlers are available: 

1. STARTFIX routine. 

2- STARTVAR routine. 

3. HASH macro instruction- 

4. RFR routine. 

5. NEXTRFR routine. 

6. ENTR routine. 

7. DELENT routine- 

8. EXTDIC routine. 

9. PACKVAR routine. 

THE COMBINED DICTIONARY 

The Dictionary Handler Module (CZASD) is capable of handling any 
hashed entry. In the command system this module processes entries for 
the combined dictionary. 

The system references: a synonym dictionary, default dictionary, 
BUILTIN procedure library, textual procedure library, an internal symbol 
dictionary, and a task dictionary which lists external symbols. These 
dictionaries cover the range of the language that is used by the system 
(the vocabulary of the system) . 

The formation of a combined dictionary permits a reduction of search 
time. However, it is not possible to include all of the individual dic- 
tionaries in the combined dictionary. The internal symbol dictionary 
and task dictionary are not included in the combined dictionary. 

Each entry in the combined dictionary is known by an eight-character 
name; some information about the kind of entry (source, purpose) is 
included. Entries containing less than 200 bytes are inserted directly 
into the combined dictionary. Larger entries contain a pointer in the 
dictionary entry. Pointers are used for system modules and procedures; 
values are used for command variables, synonyms, and defaults; in gener- 
al, the combined dictionary contains the value. 

The LOGON2 routine (CZBTB) contains the scheme for creating the com- 
bined dictionary; it allows the user dictionaries to be constructed from 
the user and from system information. In this manner a centralized 
repository of vocabulary is established. 

The system library provides a source of information for the combined 
dictionary. BUILTIN and textual procedure names are obtained from a 
data set called SYSPRD, which is a dictionary of system procedures and 
system BUILTIN procedures. SYSPRD is established at the same time that 
SYSLIB is established, and it becomes part of the combined dictionary 
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each time the LOGON procedure occurs • If the user adds any dictionary 
entries in the form of procedures or builtins to his USERLIB, then these 
entries will become part of the combined dictionary the next time this 
user logs on. The dictionary search logic allows a search of the SYSLIB 
version or the USERLIB version; the user may designate the SYSLIB in 
preference to OSERLIB. 

SYSPRX (system prototype file) stores system defaults and synonyms in 
SYSLIB, If the user has created his own profile, then there is a SYSPRX 
member of USERLIB. LOGON 2 selects the library to be used. 

If there is a SYSPRX member of USERLIB Cwhich indicates that the user 
has created his own profile environment) , then that data set is picked 
up, and the synonyms, defaults, and command variables are added to the 
combined dictionary. If the user has not created his own profile, there 
will be no SYSPRX member of USERLIB, and the SYSPRX member of SYSLIB 
will be used. 

The references to dictionary handlers are made by a number of entry 
codes and macro instructions. GDV (Get Default Value) is the most com- 
monly used macro instruction; this is a call to find a default value for 
a given name. 

Direct calls require no further explanation. However, it should be 
noted that some of the entry codes are placed in the entry table so they 
may be called from nonprivileged code. 

The SYN/DEF (CZATR) , PROCDEF (CZATP) , and BUILTIN routines create 
dictionary entries. The user may create dictionary entries by employing 
the SET command if he is referencing a command variable or command sym- 
bol. PCS (Program Control System) will recognize that a name is a com- 
mand symbol. If it is, a dictionary entry will be created and the com- 
mand symbol will be established. 

After LOGON2 has established it, the combined dictionary is available 
to the users. The combined dictionary resides in one or more pages of 
virtual storage. The space is obtained by GETMAIN. 

The PROFILE command is designed to take those cmtries which represent 
synonyms and defaults (and optionally, those dictionary entries that are 
command symbols), and to write a new version of SYSPRX in the USERLIB. 
This is the way in which the user's profile is built. Profile also gets 
the syntactical characters (set by MCAST and the translate table) from 
GATE'S PSECT and New Task Common, and makes the characters part of 
SYSPRX. 

At LOGON time GATE and the User Prompter cannot use the combined dic- 
tionary because it has not been built. System hard- coded defaults are 
used until the combined dictionary exists, but this imposes a strict 
limitation on the system in the initial phases. 

The logic of GETMAIN handling for dictionaries starts the dictionary 
handler with a single page of space obtained through GETMAIN. Addition- 
al space is obtained as required. As entries are deleted there is a 
conservative effort to do some page cleanup. 



THE SOURCE LIST 

The source list contains a sequenced list of events which are going 
to happen in the future. There is practically no record of past events 
in the system. The user is able to change the sequence of events in the 
source list by invoking an OBEY macro instruction or an expanded 
procedure- 
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The source list operates through a pushdown, popup structure Ca list 
structured event) • As commands are entered into the system, they are 
recorded in the source list which also provides working space for 
various parts of the system. For example, the source list provides a 
register save area when it is pushed • 

When four or five commands on a single line, separated by semicolons, 
are entered into the source list, the Command Analyzer and the Verb 
Scanner will isolate a verb, A procedural verb requires that a number 
of coiranands be inserted in its place. The new commands are placed in a 
sublist, and a pointer to the sublist is made available to the system. 
These sublists can be generated almost indefinitely. 

The Command Analyzer always checks the source list for the next com™- 
mand. When the source list is empty, the Command Analyzer links to GATE 
to prompt the user for additional input. 

There are two special occurrences in the source list: 

1. Whenever a sublist is created, registers are saved to permit a 
return to original conditions. 

2. E markers indicate the ends of lines or ends of logical segments 
and sublists. 

Items are not erased from the source list until the space is needed. 
The source list is handled in virtual storage in the same manner as the 
GETMAIN logic of the dictionaries; only required pages are used. An 
indefinitely recursive routine can run the source list out of virtual 
storage, and thus cause a system blowup. 

Certain PCS commands (such as AT, IF, DISPLAY, SET) access the source 
list directly. The syntax of these commands is such that the Command 
Analyzer would not be able to analyze them. 



COMMAND CONTROLLER ROUTINES 

The various routines and subroutines that make up the command con- 
troller are described in detail in this section. 



!► Command Analyzer and Executor (CZASA) 



This routine serves as a driver for command interpretation. It com- 
prises three major modules: the Command Analyzer, the Verb Scanner, and 
the BUILTIN Call Processor. The Command Analyzer serves as the mainline 
processor. After it initializes the soiirce list, the Command Analyzer 
calls the Verb Scanner, which identifies and isolates a verb in the 
source list. When it returns, the Command Analyzer takes whatever 
action is required by that verb — deletes nulls or comments, expands 
procedures and synonyms, controls language processor, and links to the 
BaiLTIN Call Processor to load and execute BUILTINs. (See Chart AA. ) 

ENTRIES : The three major modules, as well as certain other functions 
are defined by the entry points in the Command Analyzer and Executor: 

CZASAl - normal entry to the Command Analyzer 

CZASA2 - normal entry to the Verb Scanner 

CZASA3 - normal entry to the BUILTIN Call Processor 

CZASA4 - entry to the Command Analyzer for nonprivileged users (OBEY 
entry) 

CZASA5 - entry to the Command Analyzer when a command that has been 

executed (via an attention interruption) returns to it. This 
entry point is also used on completion of LOGON procedure 
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CZASA6 - entry point to assume control of attention interruptions CUSATT 

macro instruction) 
CZASA7 - entry point to release control of attention interruptions 

CCLATT macro instruction) 
CZASAA - entry to the Command Analyzer after a CC=1 ABEND 



MODULES CALLED ; The modules called by the Command Analyzer appear 
below. Later in the list the modules called by the Verb Scanner and the 
BUILTIN Call Processor are listed. 



Source List Handlers: 
POPSL (CZASCl) 

PUSHSL CCZASCl) 

SL Update (SCZASC6) 

¥erb Scanner (CZASA2) 

Control Dictionary Handlers; 
RFR Routine (CZASD3) 

User Control (CZAMZ) 

AT CCZASW3) 

AT CCZBTGl) 
PROCEDURE Expander tCZATEl) 

BUILTIN Call Processor 
(CZASA3) 

PCS Phase I CCZANAl) 

PCS Program Call (CZAMG2) 

User Prompter CCZATJl) 



Deletes sublists. 

Constructs new sublists. 

Updates the source list to end of a sen- 
tence or a ptose. 

Isolates verbs within the command string. 



Searches combined dictionary for 
procedures . 



Processes transient commands. 

Handles direct calls without parameters. 

Expands identified procedures into the 
source list. 

Loads and passes control to BUILTIN 
procedures. 

Completes phase processing. 

Handles direct calls with parameters. 

Prints error messages at the user's 
terminal . 



During its operation the Verb Scanner calls the following routines: 
Control Dictionary Handlers j 



RFR Routine CCZASD3) 



Source List Handlers; 
SLMAIN (CZASC4) 



SYNSL (CZASC5) 



Determines if the isolated verb has a 
synonym value. 

Processes source list markers. 

Expands synonym values into the source 
list. 



During its operation the BUILTIN Call Processor calls the following 
routines : 



Procedtare Expander: 
LISTEQ (CZATE3) 

DEFSEARCH CCZATE4) 



Analyzes parameters and constructs a table 
of pointers to them. 

Searches for default values. 
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Source List Handlers: 

SL Update CCZASC6) Updates the source list to point to the 

next command. 

EXITS: When its processing is ended Con error or on exhaustion of the 
source list) , the Command Analyzer returns to its calling routine via 
the RETURN macro instruction. The Verb Scanner returns to the Command 
Analyzer when it completes processing. The BUILTIN Call Processor exits 
by calling a privileged command directly, or be calling the User Con- 
troller to call a nonprivileged command processor. When this portion of 
command processing is complete, the command routines exit via the RETURN 
macro instruction, which returns to the Command Analyzer at CZASA5. 

OPERATION ; When entered at CZASAl, this routine calls PUSHSL CCZASCl) 
to create a new sublist within the source list CSL). After setting up 
the source list, this routine links to the Verb Scanner (CZASA2) to 
isolate and analyze a verb in the source list. 

Verb Scanner : On entry the Verb Scanner initializes three internal 
values to reflect a zero return code (RC) , character count CCC - length 
of verb), and depth count (D - used for expressions in parentheses). An 
additional flag is set to designate an initial outside of comment condi- 
tion. The GNC macro instruction is now expanded to locate the SL 
character at the current source address CSA) . The following actions 
provide a description of the verb scan. Leading blanks and underscores 
are ignored. A left parenthesis causes all characters to be included as 
part of the verb, until a corresponding right parenthesis is found- 
This includes all inner sets of parentheses, but should an end of line 
occur before all of the sets are resolved (one to one correspondence on 
left and right) , an error exit is made. If the first character is the 
transient command prefix character the Verb Scanner exits with an RC 
indicating that a transient statement will follow. 

If the first character is a quotation mark, all subsequent characters 
are ignored until either the quotation is paired, or an end of line 
occurs. Detection of a comma or equal sign at the beginning of the 
verb, or outside of quotation marks or parentheses, results in an error 
exit after scanning (without storing) , until a semicolon or end of line 
occurs. 

When the verb's delimiter has been found, the verb is tested for a 
synonym value. If there is a synonym value, SYNSL moves the verb into 
the SL, updates the SL and returns control to the verb scanner. The 
synonym value is examined. If the synonym value changes 100 times dur- 
ing examination, a loop condition is assumed and an error return code is 
set. If there is no synonym value, the routine exits to the mainline 
Command Analyzer. 

The following checks are made for possible verb errors, and a special 
code is returned to the mainline Command Analyzer for each type: bad 
clause followed by semicolon or end of line; bad clause due to unpaired 
parentheses. 

The following return codes will be issued: 

RC=0 = Verb, null, or comment followed by blank. 

RC=4 = Verb, null, or comment followed by semicolon. 

RC=8 = Verb, null, or comment followed by end of line. 

RC=12 = Transient statement indicator detected as first character. 

RC=16 = Bad clause followed by semicolon. 

RC=2 = Bad clause followed by end of line. 

RC=24 = Bad clause due to unpaired left parenthesis. 

RC=28 = Possible synonym loop. 
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Return to Mainline ; If an error is detected in the verb format (for 
example: impaired parentheses) , the User Prompter CCZATJl) is called to 
send an appropriate message to the user's terminal. Then, the Source 
List Update routine CCZASC6) updates the source list past the verb and 
its subfields. Control passes to check for an end of sentence. If a 
verb is a null clause or a comment, and is not a transient command, con- 
trol also passes to check for an end of sentence. If a transient com- 
mand has occurred in a dynamic sentence, an error is recognized, CZATJl 
and CZASC6 are called to account for it. If the transient command did 
not occur in a dynamic sentence, the Command Analyzer calls User Control 
(CZAMZ) at CZASW3 to process the transient command., On return, the Com- 
mand Analyzer loops back in its processing line to again call the Verb 
Scanner to isolate and analyze the next verb in the source list. 

If a verb has a correct format and is neither a null nor a comment, 
CZASAl hashes the verb via the HASH macro instruction and calls the RFR 
routine (CZASDB) to determine if the verb is a procedure name CPROCDEF 
or BUILTIN) . If the verb is not a procedure name, control passes to the 
PCS Program Call routine to process the direct call if parameters have 
been supplied. Control otherwise passes to the User Controller at 
CZBTGl for a parameter less direct call. If it is a procedure name and 
the dynamic sentence flag is on (that is, an AT verb exists in the line) 
the verb is checked to ensure that it is a legal PCS verb; if not, an 
error condition is diagnosed. If the verb is a procedure, it is 
expanded into the SL via the Procedure Expander routine CCZATEl) ; then 
control is returned to the Verb Scanner to begin processing the PROCDEF. 
If the verb had been a BUILTIN procedure, the BUILTIN routine CCZASA3) 
would be called to load and to analyze the calling parameters of the 
verb, and pass control to the program. 

BUILTIN Call Processor : The BUILTIN' s dictionary entry is examined to 
determine if the BPK external name field has been resolved to a VM 
address. If the BPK external name field has not been overlaid by a VM 
address, and if the entry indicates a system BUILTIN is being processed, 
a search of COMTAB is made for the address of the external name. (COM- 
TAB is a table in CZASA's PSECT that contains the external names and 
BPKD address of each of the system BUILTINs.) If the external name is 
found in COMTAB, the BUILTIN Call Processor need not call the Loader. 
Otherwise, this processor retrieves the external name that identifies 
the BPK from the BUILTIN* s dictionary entry, and uses it, in conjunction 
with the LOAD macro instruction, to insure that the BPK does reside in 
the task's VM before the verb is called. 

The third word of the BPK is tested for an identifier to determine if 
the BUILTIN command has subparameters . If no subparameter processing is 
required, a test is made to determine if the BPK defines calling parame- 
ters. If no parameters are defined, a further test is made to determine 
if parameters are supplied. These parameters, which are supplied (but 
not required) are stripped, and the user is notified that they are being 
ignored. Calling parameters require additional duties to be performed. 

The SL will have to assume a temporary expansion to store parameters. 
Since the expansion will be deleted upon termination of the BUILTIN, the 
current entry point is saved for future restoration. The TYPE table 
which is described in the procedure expander (identifies each BUILTIN 
dummy parameter as normal, or a special quoted string) is set so that 
all dummy parameters are normal. This assures that no calling parameter 
will be stripped of its enclosing apostrophes. 

At this point, the LISTEQ routine (CZATE3) is called to establish a 
table of pointers to the calling parameters. Upon return from LISTEQ, 
the calling parameters will exist in the SL as a continuous string, 
where each parameter is preceded by a one-byte length characteristic. 
The newly constructed PLIST (parameter list constructed by CZATE) will 
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contain pointers to ttie calling parameter strings, and each BUILTIN 
duiony parameter that did not have a corresponding calling value will 
cause a zero entry within the PLIST at the same relative position. 

The DEFSEARCH routine CCZATE4) is now entered to determine if the 
dummy parameters, corresponding to zero entries in the PLIST, have 
default values. If they have, the PLIST table is updated with default 
pointers, thus completing the task of updating the BPK with pointers to 
the BUILTIN 's calling parameters. 

If subparameter processing has been identified, processing similar to 
that described above is performedi however the BUILTIN command processor 
will call only the LISTEQ routine CCZATE3) • LISTEQ will directly call 
DEFSEARCH (CZATE«*) for subparameters. The end result is the same; the 
PLIST table is established with pointers to the calling parameters, 

Processing now is similar for BUILTINs with or without parameters or 
subparameters. There are two kinds of modules in the system: privi- 
leged and nonprivileged, and it is necessary to determine the attributes 
of this particular BUILTIN. If the BUILTIN is privileged, the module is 
called directly from CZASA3. Nonprivileged BUILTINs are called via User 
Control (CZAMZl) which will perform the privileged/non privileged inter- 
face and will dispatch them as nonprivileged. 

The user is prompted (via PRMPT macro) and an immediate exit is taken 
under the following conditions: 

1. Use of the PIREC macro to check the validity of the BPKD's VCON and 
RCON causes a program interruption. 

2. Module to be loaded cannot be found. 

When control is retiirned to the Command Analyzer, if the BUILTIN is a 
legal PCS procedure (for example, DISPLAY, IF, RUN), and the dynamic 
sentence flag is off, control is passed to PCS Phase II to complete 
phase processing, and invoke the command. At this point, if the invoked 
verb had been a false IF condition, the SL is updated to the end of that 
line. If the verb had not been a legal PCS PROCDEF, PCS Phase II would 
be skipped. 

After processing each verb, the end of level flag is checked (indi- 
cating that a RUN or BRANCH verb has just been executed, or the end of 
an OBEY command line has been reached), and if it is on, POPSL is called 
to delete the current sublist. If the sublist deletion was due to the 
termination of an OBEY string, control is returned to the calling rou- 
tine; otherwise, control passes back to initiate a scan of the previous 
sublist. If the end of level flag is not on, the end of sentence flag 
is being checked. If the flag is on in conjunction with the dynamic 
sentence flag, PCS Phase II is entered to complete the processing of all 
the verbs that -follow the AT in the line being processed. In either 
case, any pending interruption is now allowed to occur prior to proces- 
sing the next verb. 

The Command Analyzer is called at CZASA6 and CZASA7 to assume and 
release user control of attention interruptions. For these entry points 
the Command Analyzer issues a direct macro instruction and sets the 
TCMATT flag in task common. Then control is returned to the calling 
routine. 

ERROR CONDITIONS ; 

1. If an isolated verb has a format error (ascertained from the verb 
scan return code) , a message to that effect is sent to the tejrmin- 
al, and the verb is effectively ignored. 
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2. If a non-PCS coroinand is encountered in a dynamic statement, a mes- 
sage to that effect is sent to the terminal, and the verb is effec- 
tively ignored. 

3. If a transient command is encountered in a dynamic statement, a 
message is sent to the terminal, and the verb is ignored, 

SYSTEM CONTROL BLOCK USAGE ; These control blocks are used by the Com- 
mand Analyzer, the Verb Scanner and the BUILTIN call Processor: 

Builtin Procedure Key (CHABPK) 

Control Dictionary Entry (CHADEN) 

Interrupt Storage Area CCHAISA) 

New Task Common CCHANTC) 

Profile Character and Switch Table (CHAPCT) 

Sublist Header CCHASLH) 

Source List Marker CCHASLM) 

Source List Page Header (CHASLP) 



^ GATE Routine (CZATC) 



Gate is a closed, device independent input/output routine that trans- 
mits information from SYSIN devices or data sets to the calling routine, 
and from the callii^ routine to a SYSOUT device or data set, (See Chart 
AB.) 

ENTRIES ; 

CZATCl - privileged routines to process GATE call 

CZATC2 - nonprivileged routines to process GATE call 

CZATC3 - gate's keyboard card reader switch 

CZATC4 - maximum line length/device type for conversational I/O 

CZATC5 - standard character translate and function table 

CZATC 6 - TCT slot address 

CZATC7 - output character translation table address 

CZATC 8 - nonconversational SYSIN DCB 

CZATC9 - nonconversational SYSOUT DCB 

CZATCO - flag byte 

CZATCB - access Control Dictionary for SYSIN=K,ALPHA=B change 

MODULES CALLED: 



ABEND (CZACPl) 



To abort or arrest processing and write an error 
message. 



Control Dictionary Handlers: 

ENTR CCZASD5) Changes SYSIN and ALPHABET defaults. 



GDV CCZASDX) 



Gets user defaults for SYSIN, ALPHABET, RSVP, and 
LINES . 



RTAM 



To perform actual I/O on conversational SYSIN/ 
SYSOUT device. 



CKCLS macro 

GET and PUT macros 

EXITS: 



To verify user parameter pointers. 

To access SYSIN and SYSOUT data sets non- 
conversational ly . 



Normally - via the RETURN macro with return code in register 15 
Abnormally - via the ABEND macro (cc=l through cc=3) 
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OPERATION ; Five macro instructions, GJ^iTWR, GATRD, GTWAR, GTWSR and 
GTWRC call GATE to write on SYSOUT, to read from SYSIN, or both. GATE 
first processes any required writing by dividing the message into 

device-sized lines, or smaller; then the appropriate access method is 
determined, the output character translation table is applied to the 
message, and the access method is used to transmit the message to SIS- 
OUT. When reading is required, GATE determines the appropriate access 
method, uses it to obtain the input message (GATE input buffer is for 
VAM only; GATE uses RTAM input buffer for conversational reads), and 
applies the character translation table to the message as it transmits 
the message to the user's buffer. 

GATE Supervisor - GASP ; Gate receives control at its proper entry point 
in GASP. Internal control flags and switches are initialized and build 
areas are cleared. If user has entered defaults since last entry, GASP 
retrieves, from the combined dictionary via GDV macro, those defaults 
applicable to the particular SYSIN/SYSOUT device being used and the mode 
of operation of the task. System defaults are supplied when there is no 
entry in the dictionary. Defaults used are SYS IN, ALPHABET, RSVP, and 
LINES, User parameter list addresses for output are verified via CKCLS 
macro if user has requested a write. GASP sets up text pointer and 
length for FAVOR or WORM if address verification is positive. 

For conversational tasks, if the device is not assigned to RTAM and 
the GATE request is from outside the task, GATE will ignore the request. 
If user is processing in a write/compute environment, GASP will wait for 
previous \crite to complete, if necessary, and ascertain normal comple- 
tion before processing new request. For all write operations GASP 
acquires the address of the Output Translation Table and checks it. 
Then, for conversational writes, GASP enters FAVOR to perform output 
formatting and control character recognition. Nonconversational writes 
are directed to WORM for similar handling. If a read is required, eith- 
er separately or in conjunction with a write, GASP will set up user 
parameters for COWARD conversationally or BARD nonconversationally. 
User input parameter verification is handled in TRAM routine. GATE'S 
return code to the user is built internally in the PSECT by the GATE 
routines entered to process the GATE request. The return code is then 
set at the single GATE exit for return to the user. 

Format Conversational Output - FAVOR ; User output length is verified. 
If equal to or less than 0, the write request is ignored. If length 
exceeds 512, 512 is set for the user length- If user wants carriage 
control (GTWRC) , control characters are prefixed to user output line for 
double and triple spacing, or skip-to-channel. Control requests for 
single spacing or no spacing result in no prefixing of characters. If a 
GTWRC request exceeds one physical line, subsequent lines are single 
spaced. FAVOR is sensitive to certain function characters, which it 
processes according to the SYSOUT device being accessed. If the SIC 
value for a write request has not been specified, FAVOR will translate 
the output (excepting valid function bytes). SIC causes output trans- 
lation to be bypassed. 

The function characters to which FAVOR is sensitive are restore, 
bypass, prefix, punch off, punch on, reader stop, tab, new line, back- 
space, idle, end-of -block, preferred break point, and linefeed. If user 
line exceeds maximum physical line of SYSOUT device, GATE will break the 
line at the last preferred break character, or, if none were found, GATE 
will use the total line before starting the next line. As each physical 
line is completed, FAVOR adds appropriate carriage control and idles, if 
necessary, to allow device to position to left margin for next line. 
When the user's text is exhausted, COWARD is entered to put out user 
request as a single write. Trailing blanks are stripped off the user's 
message before any editing occurs. 
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Write Only (Nonconversationally) - WORM : If SYSOUT DCB is closed, or if 
user write length is equal to or less than 0, WORM exits to effectively 
ignore write request. If user wants printer line control (GTWRC) , WORM 
passes user- supplied carriage control character to SYSOUT line and con- 
tinues processing of text. If user line on GTWRC exceeds one physical 
line, subsequent lines are given single spacing with no page control. 
Otherwise WORM controls SYSOUT lines with single spaces and new pages 
according to user-supplied value for lines-per-page. If SIC is not spe- 
cified, WORM will translate the output. (SIC as a parameter for a write 
operation negates translation. ) 

WORM is sensitive to preferred break- point, new line function charac- 
ters and the delete function. WORM will always start a new physical 
line when the new line function is encountered. Preferred breakpoint 
characters will control line segmenting only when user line exceeds a 
physical line on SYSOUT device. All preferred break characters are 
replaced by blanks. When a character is assigned a delete function 
code, that character will be deleted. Maximuro write length nonconversa- 
tionally is 512 bytes per write request. 

Conversational Writes and Reads - COWARD ; Upon entrance, COWARD checks 
the ISA attention bit; if an interruption is pending, COWARD branches to 
PATTER- Otherwise COWARD determines the appropriate I/O operation, sets 
up the Terminal Control Table (TCT) slot accordingly, and sets Register 
to point to the TCT slot. 

COWARD determines, by checking the ALPHABET value (originally 
obtained by GASP) and the device type, whether RTAM or GATE will transl- 
ate. If RTAM is to translate, this is indicated in the TCT slot. If 
the terminal is not presently assigned to RTAM, GATE will purge all I/O 
to that device and then assign the terminal to RTAM. 

Next, COWARD issues the ATCS macro (SVC 219), transferring control to 
RTAM TCS for actual execution of the I/O operation. Figure 7 shows the 
interaction of COWARD and RTAM. 

Upon return, the I/O flag bytes set by RTAM in TCTWFD are reset and 
tested. If the necessary flags are zero and the Write/Compute flag (in 
GATE'S PSECT) is off, a WAIT T (SVC 204) is issued. 

If the Write/Compute flag is on, COWARD exits through GATEEXIT to the 
calling routine. If the flag byte does not have the necessary flags 
zeroed, the flag byte is tested further to determine what conditions 
exist. For I/O errors, COWARD exits to TERROR. For attentions, COWARD 
exits to PATTER. Otherwise the WAIT T is issued. 

When the wait is complete, COWARD rechecks the I/O flags in TCTWFD. 

1. For I/O errors, COWARD exits to TERROR. 

2. For attentions, COWARD will exit to PATTER. 

3. a. For GATWR and GTWRC complete, COWARD exits to the common exit 

routine unless GASP called COWARD to complete the WRITE, in 
which case COWARD returns to GASP. 

b. For GATRD, GTWSR, and GTWAR complete, COWARD calls TRAM. Upon 
return from TRAM, an ATCS is issued for a CLEAR operation, 
after which COWARD exits to LATE's exit routine. At the exit 
routine, in the case where the device was reassigned to RTAM, 
the device is reassigned to the user (unless the GATE request 
was from LOGOFF or ABEND) . 
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When GATE entered for converiattonal I/O. 



GATE CCZATC) 



GATE eventually enters its 
subroutine. . . 



TERROR 



PATTER 



COWARD 



. . . which prepares for 
I/O handling by RTAM: 

• Sets GPR to point 
to the TCT slot of 

the task being 
serviced, 

• Indicates the 
desired I/O 
processing in the 
TCT slot, and 

• Issues an 
ATCS macro 
instruction 



I ATCS generates 
an SVC 219, 
transferring 

I control through 



If COWARD cannot 

continue without I/O 

completion, 

A WAIT T n 



-#»" the Supervisor to . . . 



macro 
instruction 

is issued 



WAITT 
generates 
an SVC 204 



COWARD checks I/O 
completion status, and 

exits to TERROR If 

- I/O error condition 

exists, or 

exits to PATTER if an 

- attention interruption 
condition exis^, or 

returns to caller 
if successful I/O 



-^^"And control returns to the 



Supervisor. When I/O complete, 
control is passed back to RTAM TCS 



RTAM TCS 



The Terminal 
Communi ca ti ons 
Subprocessor does 
ihe following: 

• Finds the 
appropriate TCT 
slot and 
determines the 
desired I/O, 

• Builds a chonnel 
program in TIOCB, 

• Then initiates I/O. 
Before I/O is complete, 
RTAM TCS returns 

to COWARD . 



RTAM TCS then . . . 

• Analyzes the I/O 
interruption do to, 

• Posts the results 
in the appropriate 
TCT slot, and 

• Returns control 
finally to 
COWARD 



Figure 



Interaction of COWARD and RTAM TCS 



Terminal Error Handler - TERROR : TERROR processes all abnormal conver- 
sational I/O termination other than attention interrupts. Error condi- 
tions processed by TERROR are unrecoverable error, negative polling 
response, and input buffer overflow. In unrecoverable error. Gate will 
retry the operation if it had not retried previously. Otherwise TERROR 
calls ABEND Ccc=3> after setting CZACPSW3 flag indicating terminal can- 
not be accessed. 

For negative polling response (Read operation), GATE retries the read 
if previous read was from terminal card reader. Retry goes to the key- 
board for input. Otherwise ABEND (cc=3) is called. 

For buffer overflow (Read) , user is informed of input overflow and 
prompted to re-enter his input at the keyboard. 

TERROR also handles operation retry with no error as posted by VSS 
processor in TCT when user interrupts I/O with VSS active and then 
requests resumption of task. 
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Process Attention from Terminal ~ PATTER : PATTER first determines if 
user is set for conversational SYSIN. If not, PATTER calls KAYBEE, 
which in turn calls the Control Dictionary Handler CCZASD5) to orient 
SYSIN to keyboard with folded translate table. GATE'S internal control 
flags are synchronized with the dictionary. When the attention inter- 
ruption occurred on any read request, input received before the inter- 
ruption will be processed and passed back to the caller. After PATTER 
sets the attention return code in build area, control is passed to the 
exit routine. 

VAM Error - VERSE ; VERSE is GATE'S VISAM SYNAD routine, and VSAM/VISAM 
EODAD routine. It exits by calling ABEND. 

Translate and Move Input - TRAM ; Before this routine is called, GASP 
has checked certain user parameter pointers for validity with CKCLS 
macro. TRAM checks further and calls ABEND if user location is inac- 
cessible. If RTAM did not translate input from line code to EBCDIC, 
TRAM will provide this translation in the RTAM buffer. 

TRAM sets its own exit for normal conditionsi then it determines 
whether the SIC mode is specified. If it is, TRAM moves as much of the 
input record as possible to the calling program's buffer. TRAM performs 
no character translation, or any other character- indicated function. It 
sets the truncation return code, if necessary, and furnishes the true 
character count to the calling routine? then exits. If the SIC mode is 
not specified, TRAM processes each character, performs the function 
indicated for the character in the character translation table, and 
moves the character to the calling program's buffer as required. Scan- 
ning is done from left to right. The following paragraphs discuss each 
of the standard mode functions in detail. 

• The Translation Function 

When the translation function is specified for a given character, GATE 
replaces the character with the post-translation value four^ in the 
corresponding entry of the character translation table. 

• The Null Function 

TRAM deletes each encountered character that has a specified null func- 
tion. If the deletion is imbedded in the line, it is accomplished by 
joining the characters on the right of the deletion with those on the 
left, thus condensing the line. If the deletion is at either end of the 
line, TRAM deletes by appropriately adjusting the starting or ending 
point of the line before transmitting the line to the user's input area. 

• The Character- kill Function 

When it encounters a character with an assigned backspace function, TRAM 
deletes not only that character, but also the preceding character, if 
any exists. TRAM performs the deletion here just as it does for the 
null function. 

• The Cancel Function 

When the cancel function is specified for a given character, and the 
character is encountered as the last character of the current line, TRAM 
discards this line and obtains a new line from SYSIN. GATE treats the 
new line as a replacement for the discarded one. 

• The End of Block Function 

The end of block (BOB) function truncates the input string by moving 
only those characters, that are to the left of the EOB, to the user's 
input buffer. 
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• Escape Function 

Any character to which this code is assigned becomes a one-character 
escape- The character immediately following is always treated as data. 

• The Terminal Null Function 

When TRAM encounters a character to which the terminal null function is 
assigned, it honors that character as a null character only if the EOB 
function is assigned to the next character, or if the terminal null 
function is assigned to the last character translated. Otherwise, it 
treats the character as one to which the translation function is 
assigned. 

Before it returns, TRAM sets the truncation return code, if neces- 
saryi it executes the CONT sequence to analyze the continuation status, 
if truncation is not required, furnishes the true character count to the 
caller, and exits. If TRAM encounters a cancel function during the pro- 
cessing, it sets its exit for retry, and exits. If no cancel function 
is found, TRAM terminates when the input runs out, when the user's buff- 
er is full, or when an EOB function is found. 

Analyze Continuation Status - CONT ; CONT first determines whether the 
input is in card or keyboard format. CONT assumes a card format if 
SYSIN is a VSAM data set containing fixed length records; it assumes 
that the record contains a keyboard/ card reader code if SYSIN is a VISAM 
data set, or VSAM data set containing variable length records, and CONT 
determines the format from that code. If SYSIN is conversational, CONT 
determines the format from the source of input. If a card format is 
determined, the continuation convention requires a hyphen as the last 
nonblank character in the line. The keyboard convention requires a 
hyphen as the next- to-last character of the line (before a carriage 
return). If a continuation indicator is present, CONT sets the con- 
tinuation return code, and exits. If no continuation indicator is pre- 
sent, CONT exits without setting the continuation return code. 

Process Nonconversational (Batch) Read - BARD ; BARD performs the input 
operations required for nonconversational tasks, and controls the trans- 
lation of input; BARD also controls the transmission to the user's area, 
BARD calls VAM to obtain the requested input. If no errors are present, 
BARD executes the TRAM sequence to translate and move the record to the 
calling program's buffer. If TRAM requests a retry, BARD returns to its 
initial sequence; otherwise, BARD exits, after setting byte three of the 
return code to indicate the type of SYSIN data set (VSAM or VISAM) . If 
a transmission error does occur, the VERSE (VAM Error) routine is 
entered to process the error. 

INPUT TRANSLATION (LINE CODE TO EBCDIC) PROVIDED BY GATE ; 

1. 1052-7 Terminal - Operator's Console. 

2. 1050, 2741 Terminals - Support KA option. 

3. 1056 card code - Support CA option. 

4. 029 card code - Support CB option. 

5. 2741 (Correspondence) Terminal - Support ATS Terminal 

ERROR CONDITIONS ; Conditions which cause GATE to call ABEND; 
1. Invalid GATE operation code for nonprivileged user. 

26 



2. CKCLS on user parameter pointers indicates location does not have 
access necessary for GATE to process user request or is not 
assigned to user's Virtual Memory. 

(Conversational Only) 

3. Unrecoverable error when accessing terminal. 

4. Unable to read from terminal input device(s)* 
(Nonconversational Only) 

5. GTWSR n«cro used nonconversationally. RSVP not equal to ¥• 

6. SYSIN DCB closed on Read request. 

7. EODAD exit taken on GET from SYSIN. 

8. SYNAD exit on GET or PUT request. 

9. BARD finds RECFM neither fixed nor variable. 

10. BARD finds other than a line data set when RECFM is VI. 
Condition which causes GATE to call SYSER: 

Invalid GATE operation code for privileged user. 

SYSTEM CONTROL BLOCK USAGE ; 

Character Translation Table (CHACTT) 

Data Control Block (CHADCB) 

Profile Character and Switch Table CCHAPCT) 

New Task Common (CHANTC) 

Task Common (CHATCM) 

Terminal Control Table (CHATCT) 

Interrupt Storage Area (CHAISA) 



^ SCAN Routines (CZAAC) 



The SCAN package edits and validates input parameters for the command 
routines. The SCAN package consists of six routines and five internal 
subroutines. Nonprivileged entries are provided to five of the rou- 
tines. At these entries, ten levels of interrupt handling are provided. 
The routines operate independently, and issue codes to indicate the 
types of parameters, delimiters, or errors found in the input strings. 
(See Chart AC. ) 

The routines are: 

NEXTPAR scanning routine 

CHEKDS 

ALFNUM 

NUMSTG validating routines 

CHKNUM 

ALFBET 

The internal subroutines are: 

CKQUAL validating subroutine 

SCINIT initialization subroutine 
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FNDBLK 

BACKUP scanning subroutines 

VALCHK 

SCAN CONTROL BLOCK ; The SCAN Control Block serves as the input and out- 
put control block for the SCAN routines • Each routine expects register 
1 to contain a pointer to the control block. The format and contents of 
the control block are as follows for each SCAN routine: 

Byte 0-3 ^-7 8-11 12-15 16-19 20-23 

^ — ^ ^ «^ — . J. ^ ^ 

NEXTPAR |A I C I D I E I F I G I 
|.„^. ^^ ^ 1. + , 

CHEKDS JA I B I NA I NA | NA | NA | 
|.„4„^4-«^.+ +« + ^ 

ALFNUM |A I B I NA I NA | NA | NA | 
|.„4„^4 + 1. + 1 

NUMSTG (A I B I NA I NA | NA | NA | 
|.^^+ 4 ^ ^^ 4 ^ 

CHKNUM |A|B|H | I | J | NA| 
|._^4 4 ^«4 ^.4 4„^ , 

ALFBET |A I B I NA I NA | NA j NA | 

I ^X ^-JL ^J. . L ^ _X J 

A = Address of pointer to starting location for scan^ 

B = Address of 2-byte field containing length of string to be scanned. 

C = Address of a 4 -byte area in which a pointer to the first non- blank 
character is to be stored. 

D = Address of a 4-byte area into which a pointer to the first delimiter 
is stored. 

E = Address of a i|-byte area in whichs 

Byte 1 = Initial delimiter codes 
1 if left parenthesis 

if other 

Byte 2 = Final delimiter code: 

1 if equal sign C=) 

2 if comma but no right parenthesis 

6 if comma preceded by a right parenthesis 
12 if EOM, or EOM preceded by a right parenthesis 

Bytes = Actual character count excluding delimiters and leading 
3 € 4 leading and trailing blanks. 

F = Address of field containing maximum number of characters to be moved 
or zero, if no characters are to be moved. (NEXTPAR only) 

G = Address of first byte in the area to which field is to be moved, if 
a move is requested. (NEXTPAR only) 

H = Address of 4-byte field containing maximum allowable value for 
CHKNUM. 

I = Address of *l-byte field containing minimum allowable value for 
CHKNUM. 

J = Address of area to which converted value is to be moved (CHKNUM 
only) . 

28 



NEXTPMl ROUTINE CCZAACl) s NEXTPAR scans an input string for delimiters, 
and invalid characters, and moves the field to a specified area. It 
also provides a character cowit of the actual field, and a code indicat- 
ing the type of delimiters contained in the string. (See Chart AC.) 

Entry : CZjy^Cl - normal entry 
Modules Called ? None. 
Internal Subroutines: 



SCINIT Performs initialization and housekeeping functions. 

FNDBLK Finds the first nonblank character, or the first nonblank 
character after a left parenthesis. 

BACKUP Finds the last nonblank character before a delimiter. 

Exits : The routine returns to the calling routine. If an error occurs, 
the routine sets a return code to indicate the type of error and returns 
to the calling routine. 

Operation ; NEXTPAR locates the first nonblank character in an input 
string, and stores the address in the parameter list. The input string 
is scanned by NEXTPAR which compares each character in the string to a 
string of valid character and delimiter codes. If the first nonblank 
character found is a left parenthesis, this fact is indicated in the 
output control block, and NEXTPAR scans for the first nonblank character 
after the left parenthesis. Each character is scanned, and the proper 
codes are set in the output control block to indicate delimiters or 
invalid characters. If no invalid characters have been found, the 
character count is computed. The field is then moved, if the count 
(specified by calling routine) is correct, and the move option is speci- 
fied. A return code of is set to indicate a valid parameter. 

If an invalid character is found, NEXTPAR will set a return code to 
indicate this fact, and proceed to the next delimiter in order to posi- 
tion the pointers correctly j however, no characters will be moved. All 
valid EBCDIC characters are treated as valid by NEXTPAR. 

Error Conditions ; The routine returns a hexadecimal code in register 
15: 

Code Significance 

04 Field too long to be moved. 

08 Field contained 256 or more valid characters without a delimiter. 

OC Field contained invalid characters. 
System Control Block Usage ; Task Common (CHATCW) 

CHEKDS ROUTINE (CZAAC2/CZAAC2P) : CHEKDS checks data set names for valid 
characters and type of dsname. (See Chart AC.) 

Entries ; 

C2AAC2 - normal entry 

CZAAC2P - BPKD entry 

SYSAAC2 - nonprivileged BPKD entry 

Modules Called : None. 
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Internal Subroutines ; 

SCINIT Performs initialization and housekeeping. 

CKQUAL Validates qualifiers and module names. 

BPKDCNVT Converts BPKD entry to expected form. 

Exits: The routine returns to the calling routine. If an error occurs, 
the routine sets a return code to indicate the type of error , and 
returns to the calling routine. 

Operation ; If the BPKD entry is called, register 1 contains a pointer 
to the entry in the BPKD expansion which points to the dsname. The 
dsname length is contained in the byte which precedes it. The informa- 
tion is made compatible with the normal entry control block format and 
processing continues as for a normal entry. 

The first qualifier of a dsname is checked for an asterisk to deter- 
mine if it is an IBM System/360 Operating System name. (Reference: 
DDEF Command Routine, Operand Handling section. > Each qualifier is then 
checked for a valid alphameric format. The last qualifier is checked 
for parenthesis (indicating a relative generation number or member 
name) . Then the validity of the relative generation number or member 
name is checked. Length checks are also performed. The following codes 
are returned in register 15: 

Code Significance 

00 Valid dsname. 

04 Valid member of a generation data group. 

08 Valid member of a partitioned data set. 

OC Valid member of a generation data group. 

OC Valid member of a generation data group in a partitioned data 
set. 

Error Conditions ; The routine returns a hexadecimal code in register 
15: 

Code Significance 

10 TSS/360 data set (not a member of PDS or GDG) name exceeds 35 
characters. 

14 Member of generation data group (GDG) name (exclusive of rela- 
tive generation number) exceeds 26 characters. 

18 Member of partitioned data set (PDS) name (exclusive of module 
name and relative generation number) exceeds 26 characters. 

IC Member of PDS in GDG name (exclusive of module and relative 
generation number) exceeds 26 characters. 

20 GDG relative generation number is invalid. 

24 Incorrect number of parentheses. 

28 Data set qualifier blank (2 adjacent periods) . 

2C Data set qualifier contains invalid character, or field is 
empty. 
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30 Data set qualifier has more than 8 characters. 
3i| Data set qualifier first character not alphabetic. 
38, 3C, Same as 28, 2C,30, and 3% but for module name. 

«*8 IBM System/360 Operating System name contains more than 44 

characters with no relative generation number, or more than 35 
characters with a relative generation number. 

System Control Block Usage ; None. 

ALFNUM ROUTINE CCZjy^C3/CZjyiC3P) ; jyCFNUM scans an alphameric string of 
one to eight characters; it checks that the first character is alphabet- 
ic. (See Chart AC.) 

Entries : 

CZAAC3 - normal entry 

CZAAC3P - BPKD entry 

SYSAAC3 - nonprivileged BPKD entry 

Modules Called ; None. 

Internal S\ibroutines ; 

SCINIT Performs initialization and houskeeping. 

VALCHK Tests for an empty field or invalid characters. 

BPKDCNVT Convert BPKD entry to expected form. 

Exits ; The routine returns to the calling routine. If an error occurs, 
the routine sets a return code to indicate the type of error, and 
returns to the calling routine - 

Operation ; If the BPKD entry is used, register 1 contains a pointer to 
the entry in the BPKD expansion which points to the input string. The 
length of the input string is contained in the byte which precedes it. 
The information is made compatible with the normal entry control block 
format and processing continues as for a normal entry. 

ALFNUM tests the input string to insure that it is not greater than 
eight characters. Next ALFNUM checks the string, character by charact- 
er, for valid characters, and checks that the input string starts with 
an alphabetic character. If no error occurs, a return code of is set 
in register 15. 

Error Conditions ; The routine returns a hexadecimal code in register 
15: 

Code Significance 

04 Empty field (character count zero) . 

08 Invalid character. 

OC Field greater than eight characters. 

10 First character not alphabetic. 
System Control Block Usage s None. 

Section 2: Command Controller 31 



NUMSTG ROUTINE CCZikACI/CZAAC^P) ; This routine scans a field of 256 
characters or less for all numeric characters, (See Chart AC,) 

Entries ; 

CZAAca - normal entry 

CZAAC4P - BPKD entry 

sySAAC4 - nonprivileged BPKD entry 

Modules Called ; None. 

Internal Subroutines ; 

SCINIT Performs initialization and housekeeping. 

VALCHK Tests for an empty field or nonnumeric characters. 

BPKDCNVT Convert BPKD entry expected form. 

Exits ; The routine returns to the calling routine. If an error occurs, 
the routine sets a return code to indicate the type of error, and 
returns to the calling routine. 

Operation ; If the BPKD entry is used, register 1 contains a pointer to 
the entry in the BPKD expansion which points to the character field to 
be scanned. The length of the character field is contained in the byte 
which precedes it. The information is made compatible with the normal 
entry control block format and processing continues as for a normal 
entry. 

Error Conditions ; The routine returns a hexadecimal code in register 
15; 

Code Significance 
04 Empty field (character count zero) 
08 Invalid characters (characters other than numeric). 

System Control Block Usage ; None. 

CHKNUM ROUTINE (CZAAC5/CZAAC5P) ; This routine converts a numeric field 
of not more than 15 characters, to a binary number. (See Chart AC.) 

Entries; 

CZAAC5 - normal entry 

CZAAC5P - BPKD entry 

SYSAAC5 - non- privileged BPKD entry 

Modules Called ; None. 

Internal Subroutines ; 

SCINIT Performs initialization and housekeeping. 

VALCHK Tests for an empty field or non- numeric characters. 

BPKDCNVT Convert BPKD entry to expected form. 

Exits ; The routine returns to the calling routine. If an error occurs, 
th routine sets a return code to indicate the type of error, and returns 
to the calling routine. 
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operation ; If the BPKD entries are used, register 1 points to the scan 
control block in which the first word is a pointer to the string with 
the length in the preceding byte. The second word is a pointer to maxi- 
mvm value, etc. After CHKNUM converts a numeric -field into a binary 
numbert it tests the number to ensure that it lies within specified 
minimum and maximum limits. If no error occurs, a return coe of is 
set in register 15. 

Error Condition ; The routine returns a hexadecimal code in register 15; 

Code Significance 

04 Empty field (character count zero) . 

08 Invalid character (characters other than numeric). 

OC Field greater than 15 characters. 

10 Binary numer exceeds specified upper limit. 

14 Binary number is less than specified lower limit. 

System Control Block Usage ; None. 

ALFBET ROUTINE (CZAAC6/CZjy^C6P) ; This routine scans a field of 256 
characters or less for all alphabetic characters. (See Chart AC.) 

Entries ; 

CZAAC6 - normal entry 

CZAAC6P - BPKD entry 

SYSAAC6 - nonprivileged BPKD entry 

Modules Called ; None. 

Internal Subroutines ; 

SCINIT Performs initialization and housekeeping. 

VALCHK Tests for an empty field or nonalphabetic characters. 

BPKDCNVT Convert BPKD entry to expected form. 

Exits ; The routine returns to the calling routine. If an error occurs, 
the routine sets a return code to indicate the type of error, and 
returns to the calling routine. If no error occurs, a return code of 
set in register 15. 

Operation ; If the BPKD entry is used, register 1 contains a pointer to 
the entry in the BPKD expansion which points to the character field to 
be scanned. The length of the character field is contained in the byte 
which precedes it. The infornetion is made compatible with the normal 
entry control block format and processing continues as for a normal 
entry. 

Error Conditions ; The routine returns a hexadecimal code in register 
15; 

Code Significance 

04 Empty field (character count zero) . 

08 Invalid characters (characters other than alphabetic). 
System Control Block Usage ; None. 
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BACKUP SUBROUTINE CiyyiG2) ; This subroutine fields the last nonblank 
character in a string. (See Chart AC.) 

Entry ; None. Called at BACKUP. 

Modules Called ; None- 

Internal Subroutines ; 

FNDBLK Finds the first nonblank character in a string. 

Exits ; The subroutine returns to NEXTPAR. 

Operation ; BACKUP is called by NEXTPAR, after NEXTPAR has found a deli- 
miter, to find the last nonblank character. 

Error Conditions ; None. 

System Control Block Usage ; None. 

CKQUAL SUBROUTINE : This subroutine is used to validate qualifiers and 
module names processed by CHEKDS. (See Chart AC.) 

Entry ; None. Called at CKQUAL. 

Modules Called ; None . 

Exits ; The subroutine returns to CHEKDS. If an error occurs, the sub- 
routine sets a return code to indicate the type of error, and returns to 
CHEKDS. 

Operation ; CKQUAL is called by CHEKDS to ascertain that the length of 
the qualifier or module name is not zero, or greater than eight charac- 
ters. This subroutine subtracts the length of the qualifier from the 
total length of the input string, and tests that there are no invalid 
characters, and that the first character is alphabetic. It then sets a 
pointer to the character after the delimiter, and returns to the calling 
point in CHEKDS. 

Error Conditions ; The subroutine returns a hexadecimal code to CHEKDS. 

Code Significance 

28 if qualifier Data set qualifier or module name blank. 
38 if module name 

2C if qualifier Data set qualifier or module name contains invalid 
3C if module name characters. 

30 if qualifier Data set qualifier or module name has nK3re than 
40 if module name eight characters. 

34 if qualifier Data set qualifier or module name has a nonalpha- 
44 if module name betic first character. 

System Control Block Usage ; None. 

VALCHK SUBROUTINE (AMA2) ; This subroutine scans for an empty field or 
invalid characters. (See Chart AC.) 

Entry ; None. Called at VALCHK. 

Modules Called ; None- 
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Exits: The subroutine returns to the calling routine^ If an error 
occurs, the subroutine sets a return code to indicate the type of error, 
and returns to the calling routine. 

Operation : VALCHK is called by CHKNUM, NUMSTG, ALFNUM and ALFBET to 
validate a string of characters. If the length of the input string is 
not zero, VALCHK stores the length in a work area, and tests the string 
for invalid characters. 

Error Conditions : The subroutine returns a hexadecimal code to the cal- 
ling routine. 

Code Significance 

04 Empty field (character count is zero) . 

08 Invalid characters. 

System Control Block Usage ; None. 

FNDBLK SOBRQOTINE ; This subroutine scans a string of characters from 
the start of the string , to find the first nonblank character. (See 
Chart AC.) 

Entry : None. Called at FNDBLK. 

Modules Called ; None. 

Exits ; The subroutine exits to the calling routine. 

Operation : FNDBLK is called by NEXTPAR and BACKUP to find either the 
first character in a string (which may be a delimiter) , or the first 
nonblank character after a delimiter. It will check the characters in 
the string until it finds something other than a blank or a tab, or 
until it has scanned 256 characters. 

Error Conditions ; None. 

System Control Block Usage : None. 

SCINIT SUBROUTINE : This subroutine performs the initialization and 
housekeeping for the SCAN routines NEXTPAR, CHECKDS, ALFNUM, NUMSTG, 
CHKNUM and ALFBET. (See Chart AC) 

Entry : None. Called at SCINIT. 

Modules Called ; None. 

Exits : The subroutine returns to the calling routine. 

Error Conditions: None. 



System Control Block Usage : None. 
^ User Prompter Routines (CZATJ) 



The User Prompter is a centralized message locator, display, explana- 
tion and response handling facility. It uses the user-defined message 
file, which is built using the text editor, the system message file, and 
a table of the most recently used standard messages of the system mes- 
sage file, to perform its functions. (See Chart AD.) 

ENTRIES : The User Prompter module is invoked by the PRMPT macro 
instruction. Individual functions within the User Prompter are invoked 
by the CALL macro instruction. 
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CZATJA - entry point for main user prompter Cncnprivileged entry) 

CZATJl - entry point for main user prompter (privileged entry) 

CZATJ2 - entry point for MSGSYNTH 

CZATJ3 - entry point for MSGEXPL 

CZATJ4 - entry point for MSGRESP 

CZATJ7 - entry point for EXPLAIN command 

CZATJB - entry point for ABEND to unlock message table 

CZATJE - entry point for NEWMSG 

MODULES CALLED : 

GATE CCZATCl) Prints messages and obtains responses. 

ABEND (CZACPl) When SYSLIBCSYSMLF) is closed. 

Dictionary Handlers : 

GDV (CZASDX) Gets default values for message severity and 

length. 

Source List Handler Adds VCON/RCON pair to ABEND table. 
CCZASCl) 

SCAN Package: 

CHKNUM CCZAAC5) Validates and converts a response code in the 

response line of SYSMLF. 

The User Prompter also uses VISAM SETLs and GETs to manipulate the mes- 
sage file. 

EXITS ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

OPERATION ( MAI NLI NE ) : When a PRMPT macro instruction call is received » 
the prompter control routine (CZATJA/CZATJl) calls upon MSGSYNTH 
(CZATJ2) to locate the message in the message table or the message file. 
After checking with the filter in the user profile, MSGSYNTH inserts 
parameters as required and returns control to the User Prompter control 
routine. If no response is required, control uses GATWR to display the 
message. If a response is expected, the control routine displays the 
message, and reads the response using GTWSR. This initial response is 
checked to see if further explanation is required. If an explanation is 
requested, the control routine uses MSGEXPL to determine the type of 
explanation, retrieve the explanatory message required, and use GTWSR 
until the user is satisfied. If no explanation is required, and the 
option is unpredictable, the response is stored in a User Prompter work 
area CCHAAAA) . If the option is predictable, MSGRESP accomplishes the 
task of comparing the response against valid responses. A response code 
is returned for the valid response. Otherwise, the response is stored 
in CHAAAA. 

MSGSYNTH Routine : This routine retrieves a message, inserts any parame- 
ters required, and prepares the message for display. To do this, it 
first determines the brevity and severity of the message by calling GDV 
to examine the user profile. This routine then calls its own internal 
subroutine, GETMSG, to search USERLIB and SYSLIB for the message. The 
message to be displayed is assembled by inserting parameters, provided 
as required, into the skeletal message. The ID will be prefixed to the 
message for identification if the brevity is S or E. It will not be 
prefixed if the brevity is T or X. Only the ID is given if brevity is 
M. 

MSGEXPL Routine ; This routine determines the type of explanation mes- 
sage requested and provides it. After scanning the EXPLAIN response, 
MSGEXPL acts as follows: 
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1. If the response is EXPLAIN^ the preceeding message is checked to 
determine whether it is explainable. The message explanation is 
then provided by calling MSGSYNTH- 

2. If the response requests a word explanation, it is retrieved* The 
word cannot be ORIGIN, RESPONSE, TEXT, MSGS, MSGE, or MSGID. Two 
one- byte masks, one for the system message file, and one for the 
user message file, are provided to control searches for word 
explanations. Each bit in the mask corresponds to a byte in the ID 
of the message that contains the explainable word. Bits in the 
mask indicate how many bytes of the current message ID are to be 
compared in the search for a word explanation record. The mask is 
scanned from the right. Each bit encountered causes an access to 
the message file, using the current message ID bytes as a search 
argument • 

The message file is accessed by using a SETL to the region speci- 
fied by the mask- designated message ID. If an ID match is found, a 
serial search matches the explainable word with the word filed in 
the explanation record. If a word match is found, the search ends. 
If the message ID or the word do not match, the mask is scanned to 
the left until the next bit is encountered. This determines the 
next region where the search will continue. If no bits are encoun- 
tered in the mask, a blank argument is used to look for a universal 
explanation before the %#ord explanation is assumed not to exist in 
the file. If an explanation is not available in the user message 
file, the system message file is similarly searched. 

3. If the response is EXPLAIN ORIGIN, the location of the PRMPT call 
from a system program and the original message ID will be returned. 

4. If the response is EXPLAIN TEXT, the message identified by the mes- 
sage ID name will be located and, if possible, an explanation will 
be provided according to paragraph one. 

5. If the response is EXPLAIN RESPONSE, the possible responses will be 
retrieved using MSGSYNTH' s GETMSG routine. 

6. If the response is EXPLAIN MSGS or EXPLAIN MSGE, the standard or 
extended message line is retrieved using MSGSYNTH's GETMSG routine. 

7. If the response is EXPLAIN MSGID, the message ID name is returned. 

MSGRESP Routine ; This routine determines the validity of the user 
response, and informs the calling routine about the nature of the 
response. If a predictable response can be expected, MSGRESP compares 
the response with the defined responses, and returns the appropriate 
code to the calling routine if the comparison is satisfied. If no match 
is found, an error message and error code 28 are returned. If the 
appropriate code is not valid, error code 48 is returned. 

EXPTEXT Routine ; This routine permits the direct use of the User 
Prompter to handle the EXPLAIN command. This routine constructs the 
explain string, calls MSGEXPL to resolve the explanation, and then 
issues a GATWR to display that explanation. 

NEWMSG Command Routine ; This routine allows a privileged system pro- 
grammer CO authority) to initialize the message table (CHBMSG) when he 
has changed the SYSLIB copy of the system message file, SYSMLF, during a 
session. The routine uses TSEND to test the table's lock until it is 
found unlocked. It then locks the table, initializes pointers and coun- 
ters to clear the table, and unlocks the table before exiting. 
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ERROR CONDITIONS ; An overall set of error codes is assigned, as shown 
in the table. The appropriate code is right- justified in register 15 
for all routines. 

Error Code Error Description 

No error. Normal return. 

^ I/O error CSYNAD or EODAD, when resp-opt=p> . 

♦12 Message not found in MSGSYNTH routine. 

16 Message filtered by user. 

20 Insufficient output buffer space provided. 

Message truncated.. 

24 Explanation not found in MSGEXPL routine. NO 

EXPLANATION AVAILABLE displayed to user. 

28 Matching response not found in MSGRESP routine. 

32 Resp-opt parameter not N, P, or U. 

♦36 Message continued. 

40 Attention interrupt during I/O operation. 

44 Too many reference messages chained. 

48 Invalid response code in response line of SYSMLF. 

52 Response message not in SYSBILF Cresp-opt=p) . 

Those codes shown preceded by an ♦ are internal error code. They are 
never returned to the module that issues the PRMPT macro. 

For returns from a user prompter macro instruction call, the user 
response (user-resp) return parameter has different values that depend 
on the error code in register 15. 

User Response Contains When Register 15= 

Unchanged (for resp-opt=n> 0, 16, 20, 32, 44 

Response Code (for resp-opt=p) 

Pointer to string (for resp-opt=u> 
(Note: for zero length response, 
string is unpredictable) 

Zero 4, 20, 40, 44 

Pointer to EXPLAIN request line 24 

Pointer to user response line 28, 48, 52 

For returns from the MSGRESP routine, the RSPCD return parameter has 
the same function as user-resp in a PRMPT macro instruction call. If 
the error code is register 15 is 0, RSPCD contains the response code. 
For any error conditions, RSPCD contains 0. 

A system error with the code 050330301 is issued when SYSLIB (SYSMLF) 
is closed. The ABEND message is: 'SYSTEM MESSAGE FILE CLOSED. UNABLE 
TO WRITE MESSAGE." 
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SYSTEM CONTROL BLOCK USAGE : 

Editable Data Set (CHACVF) 

Data Control Block (CHADCB) 

Interrupt Storage Area (CHAISA) 

New Task Common (CHANTC) 

Profile Character and Switch Table (CHAPCT) 

TABLEA - a work area for CZATJ (CHAAAA) 

^ Attention Handler Routine (C2ASB> 

This routine performs one of the following functions: 

• Invokes user- written routines specified by an AETD macro instruc- 
tion, or 

• Obtains a command from the terminal and prepares it for execution 
for the Command Analyzer by creating a new sublist (thus affecting 
the source list itself) , or 

• Obtains and acts upon a terminal request to ignore the attention 
interruption, repeat the last command, or invoke abnormal termina- 
tion, or 

• Honors another attention interruption. 
(See Chart AE. ) 

ENTRIES : 

CZASBl - actual attention entry from task monitor 

CZASB2 - simulated attention entry 

CZASB3 - entry from CZAMZ created stack 

CZASB5 - entry from AETD macro instruction 

CZASB6 - entry for ABEND command 

CZASB7 - entry for STRING function if entered other than after ATTN 

MODULES CALLED : 

GATE Routines (CZATCl) : 

GATRD Reads from SYSIN. 

GATWR Acknowledges the attention, and writes 

diagnostic and prompting messages on task 
SYSOUT. 

GATWSR Acknowledges the attention, and obtains input 

from the terminal. 

User Control (CZAMZ) : 

PCSEXEC (CZAMZl) Executes the user's attention routine. 

INTERVENE (CZAMZ3) Issues a call to the Command Analyzer to 

process inputs from the terminal if inter- 
vention is not prevented. 

User Prompter (CZATJl) Reports errors. 

EXITS: The Attention Handler exits to the Task Monitor. It does not 
provide a return code, although it is responsible for setting certain 
switches . 

OPERATION ; When entered at CZASBl, its entry point for servicing actual 
attention interrupts, the Attention Handler decrements CZCJTl, a field 
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in the Task Monitor that contains a count of pending QLEs. (Entry was 
gained at CZASBl through a QLE -~ one less CI^E exists to be processed. ) 

The Attention Handler then tests the AIPS switch. This switch can be 
set by a user program to prevent an attention interrupt. If it is on, 
the Attention Handler arms the Attention SVC, by placing an SVC in an 
area that is usually a NOP. If the user executes the SVC, an attention 
is simulated. Consequently the Attention Handler turns on an "internal 
simulated attention pending" flag. The user is prompted that the AIPS 
switch is on, and the Attention Handler branches to its exit logic- 

If AIPS is not found on, the Attention Handler takes the extra pre- 
caution of turning it off and clearing the area that would be occupied 
by the Attention SVC, 

The Attention Handler then tests for an Attention Entry Table (AET) . 
If an AET is connected, the Attention Handler increments the attention 
count in CZAMZE and uses that count to determine if the user has speci- 
fied a program to deal with this level of attention. (The AET contains 
entries which correspond to the values of the attention interrupt 
count.) If the user has specified a valid program, the Attention Handl- 
er links to User Control (CZAMZl) to dispatch the user routine. On 
return, the Attention Handler decrements the attention count in CZAMZE, 
and branches to its exit logic. Attention processing with an AET con- 
nected is illustrated in Figure 8. 

If no AET is connected, or if there is not a valid user program for 
the updated count in CZAMZE, the Attention Handler tests the QLE pending 
count in CZCTJl. If CZCTJl equals other than zero, this routine returns 
to its calling routine — to allow other QLEs to be dispatched. 

If the QLE count is zero, the Attention Handler will service the 
attention interrupt. The appropriate attention prompt character is 
transmitted to the terminal via GTWSR. The character transmitted is 
determined as follows: 



^0 



Character Situation Governing It 

- Attention occurred during execution of a privileged command 
which was the last command to be processed within the cur- 
rent input string, 

♦ Attention occurred during the execution of a privileged com- 
mand that is embedded in the command string. Only occurs if 
additional commands remain to be processed within string. 

! Attention occurred during execution of a command or routine 
running in the nonprivileged state. 

CThe user may have defined his own string in place of the underscore.) 
A number of responses to the prompt character are possible: 

1. Another attention interrupt -- The Attention Handler immediately 
exits, returning to its calling routine. 

2. A continuation is indicated -- The Attention Handler uses GATRD to 
continue reading the response, and, on return, loops back through 
its response- checking logic - 

3. Input is null -- The Attention Handler returns to its calling rou- 
tine, after first putting a QLE to CZASA if control was passed from 
it. 

4. STRING function is requested — The Attention Handler displays all 
items in the source list which have not yet beem processed. It 
then loops back to test for pending QLEs . 

If none of the five responses shown are encountered, the Attention 
Handler calls the INTERVENE routine (CZAMZ3) in User Control to analyze 

the response input. On return, if the AET is not active, the Attention 
Handler branches to its exit logic. If the AET is active, it first 
decrements trie count in CZAMZE. 

Exit Logic ; If the task is the operator's and no more commands exist in 
the source list, the Attention Handler exits directly to its calling 
routine. Otherwise, if control was passed from the Command Analyzer 
CCZASAl) , the Attention Handler puts a QLE to the Command Analyzer and 

then exits. 

Simulated Attentions : At CZASB2, its entry poini: for ^^iifmlated atten- 
tions, the Attention Handler tests its "internal sirmiiatod attention 
l>ending" flag. If it is not on, this routine iinkr, to CZATJl to inform 
the user that a simulated attention has occurred. Then, or if the flag 
is on Cas the result of an earlier attention with AIPS on) , the Atten- 
tion Handier turns off the flag, disarms the attention SVC, and enters 
tne main routine logic at the point where the main routine tests to 
determine if an AET is co^nnected. 

ALTD Macro Servicing : At CZASB5, the Attention Handler first clears the 
attention count in CZAMZE. It then tests to determine whether (1) the 
address of the ne-^w AET has been supplied, and (2) there are any entries 
in the AET table. If the answer to either query is no, this routine 
clears CZAMZD, wnich is the AET pointer in CZAMZ's PSECT, then turns off 
the active AFT flag, and returns to its calling routine. But, if both 
conditions are satisfied, the Attention Handler begins testing the 
entries in the AET to find one that is used. When one is found, this 
routine sets a new pointer in CZAMZD, sets the active AET flag on, and 
exits. If the list is exhausted before a used entry is found, this rou- 
tine clears CZAMZD, turns off the AET flag, and exits. 
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other Functions ; There are three other entry points in this module: 
CZASB3, CZASB6, and CZASB7, CZASB3 is an entry point put into CZAMZ's 
stack and used, when encountered, to return to the Command Analyzer via 
QLE. CZASB6 is the entry point for the ABEND command. CZASB7 is used 
if the user requests the STRING function at a time other than after an 
attention interrupt. When entered, this routine calls CZATJl to inform 
the user that STRING is only valid after attention, and, on return, 
exits • 

ERROR CONDITIONS ; None, other than misuse of the STRING function, as 
described above. 

SYSTEM CONTROL BLOCK USAGE ; 

Attention Entry Table CCHAAET) 

Interrupt Storage Area CCHAISA) 

New Task Common (CHANTC) 

TABLE A (CHAAAA) 

Profile Character and Switch Table CCHAPCT) 

► Source List Handlers (CZASC) 

The Source List Handlers package consists of seven separate functions 
Ceach defined as a separate entry point) that provide the command system 
with a means of updating and interpreting the contents of the source 
list. (See Chart AF.) 

ENTRIES ; Each of the following entry points defines one of the source 
list handlers; 

CZASCl - sublist addition (push)/ deletion (pop) routine 
CZASC2 - source list page acquisition routine 
CZASC3 - source list processor for all markers except E 
CZASC4 - source list processor for E markers 
CZASC5 - source list synonym expander 
CZASC6 - source list update routine 

CZASC7 - privileged entry for read from/into source list via SYS IN macro 
CZASC8 - nonprivileged entry for read from/into source list via SYSIN 
macro 

SOURCE LIST HANDLER PUSH/POP CCZASCl) ; This routine allows for the 
addition (PUSH) and deletion (POP) of sublists within the source list 
(SL). (See Chart AF.) 

Entry ; CZASCl - normal entry 

Modules Called ; 

Virtual Memory GETMAIN (CZCGA2) gets storage for the first page of 
Allocation (CZCGA) the source list- 

Exits; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

Operation ; The routine tests an address field for the source list 
CCZASC9) to determine if this is the task's first entry for construction 
of the SJa, If CZASC9 is zero, the entry flag CINITE) is zeroed and set 
to indicate initial entry (INITEM=ON). GETMAIN is then called to 
reserve storage so that the task's SL can be constructed from scratch. 
If CZASC9 is not zero the entry flag (INITE) is tested for initial entry 
(INITEM=ON) and for a previous POP action which reverted to the SL's 
first sublist (INITEMl=ON> • The SL is then reinitialized to its first 
possible sublist state. For both cases, values are set in the SL Head- 
er, a new sublist is constructed and INITEM is set ON for successive 
entries. 
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If INITEM=ON, the current sublist base is set from SLPCSL, and a test 
is made to determine what type of entry was made. For a POP entry, the 
sublist's generation marker's pointer field CSLHPTR) is tested. If the 
field is zero, INITEM=0FF, INITEMl=ON, and EXIT, If it is nonzero, 
SLPCSL is reset from SLHPTR (the sublist pointer now points to the pre- 
vious sublist) , and SLPAVL is enlarged by the number of bytes existing 
in the POPed sublist. If the new sublist is a G type Cnon-OBEY) , SLPGIP 
is reset to point to its SLHPTR field. In either case, an immediate 
EXIT is made. 

If the entry is a PUSH type, a check for sufficient sublist space is 
made (390jl bytes minimum). Insufficient space results in a call to 
CZASC2 for an additional page. The new sublist base is returned from 
C2ASC2 which also updates SLPAVL accordingly. If there was enough space 
initially, the new sublist base is computed from the previous sublist' s 
end point (SLHEND) , which is rounded to the next fullword boundary. 

In either case, the previous sublist pointer is moved into the SLHPTR 
field of the new sublist. If the new sublist is an OBEY type (user call 
to command analyzer), its generation marker is set to Uj otherwise, is 
set to G. Also for the G type, the previous sublist* s SLHPTR field is 
set to zero, and a null command line is input, the start address 
(SLHCSA) is set to the beginning of the generation marker? SLHEND is set 
to its end; SLPAVL is diminished by the number of bytes in the new sub- 
list; SLPCSL is updated; and, an EXIT is made. 

If the input command line isn't null, it is moved into the SL after 
the new generation marker- An E marker is placed at the line's end, 
which points back to the generation marker's beginning, SLHCSA is set 
to the line's first byte address; SLHEND is set to the address of the 
first available byte after the E marker; SLPAVL is diminished by the 
number of bytes in the sublist plus the command line (including 6- byte E 
marker); and, an EXIT is made. 

Error Conditions ; There are no error conditions for this routine. 

System Control Block Usage ; 

Source List Marker (CHASLM) 
Source List Page Header (CHASLP) 
Sublist Header (CHASLH) 
Task Common (CHATCM) 

SOURCE LIST HANDLER BUFFER FETCH ROUTINE (CZASC2) ; This routine is 
called to obtain a page of virtual storage for source list (SL) expan- 
sion and to provide page-to-page linkage. (See Chart AF.) 

Entry : CZASC2 - normal entry 

Modules Called ; 

Virtual Memory GETMAIN (CZCGA2) obtains additional source 
Allocation (CZCGA) list pages. 

Exits ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

Operation ; The routine tests the first four bytes of the current SL 
page. If they are zero, GETMAIN is executed to obtain an additional SL 
page after which the address of the new page is placed in the first four 
bytes of the previous page. If the four bytes were nonzero, the page to 
which they point would be used, 

If the entry is for a line expansion (input=pointer to the fullword 
containing 1), the current SL end pointer (SLHEND) is set to the address 
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of the new page's first available byte Cfiftb byte position); the SL 
available byte count CSLPAVL) is updated to «*092j.o; and, an EXIT is 
made. If the entry is for a new sublist (input pointer to full- word 
containing zeros), the new page's address is returned to the calling 
routine; SLPAVL is set to *t092j.o ; and, an EXIT is made. 

An entry for textual procedure expansion is assumed if the two pre- 
vious types are not specified. A T marker is placed in the old page at 
the current end point, which points to the first available byte in the 
new page. SLHEND is updated to the address of the first available byte 
in the new page; SLPAVL is set to 4092^.©; and, an EXIT is made. 

Error Conditions ; There are no error conditions for this routine. 

System Control Block Usage ; 

Source List Marker CCHASLM) 
Source List Page Header (CHASLP) 
Sublist Header (CHASLH) 

SOURCE LIST HANDLER MARKER PROCESSORS (CZASC3/CZASC4) ; The routine 
which is entered to process source list (SL) markers, recognizes when 
new lines must be input via GATE and, in addition to expanding the SL, 
it deletes information when the markers indicate that this action is 
necessary. (See Chart AF. ) 

Entries ; 

CZASC3 ~ entry point to process all but E-type (connection/termination) 

markers 
CZASC4 - entry point to process E markers 

Modules Called ; 

GATE (CZATC) To write a prompt string and read into the source list. 

Exits ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

Operation ; When the module is entered at CZASC3, the current start 
address (SLHCSA) is tested for a pointer to a T marker. If there is a 
pointer, SLHCSA is reset from the T marker's pointer field, and an EXIT 
is made. If there is no T, then a G marker is assumed. The address of 
the standard prompt string is obtained from PCTPS new task common. Con- 
trol now passes to CZASC4 to prompt for a new comiiiand line. 

At entry point CZASC4, SLHCSA is immediately reset from the E mar- 
ker's pointer field. If it doesn't point to another marker, SLHCSA is 
updated, and an EXIT is taken. Otherwise, a check is made for a U mark- 
er. If there is one, register 15 is set to hexadecimal FF to signal the 
calling routine to initiate a sublist deletion, and an EXIT is taken. 
Also, if the U marker doesn't point to a G or P marker, an EXIT is 
taken. If the U marker points to a P marker, the current end point 
(SLHEND) is set to the beginning of the P marker; SLHCSA is set from the 
P marker's pointer field; the available byte count (SLPAVL) is increased 
by the number of bytes from the beginning of the P n^rker to the end of 
the E marker, and an exit to the calling routine is made. 

The last possibility is the G, or generation marker. In this case, 
the G marker address is saved. If its pointer field is nonzero, SLPAVL 
is reset to reflect the G marker's position relative to the SL page 
beginning, and control passes to prompt for a new line to be read into 
the SL, after the G marker. If the G marker's pointer field is zero, 
the SL must be reset to its first sublist position. To do this, the 
sublist pointer (SLPCSL) is reset to 16^.0 ; the G marker address is reset 



to the first SL generation marker position and saved; SLPAVL is reset to 
4058j_o » andt the G type siablist pointer CSLPGIP) is reset to point to 
the new G marker • 

At this point, regardless of the above path, GATWR is used to prompt 
for the next command line with the standard prompt message Cianderscore- 
return) in new task common. This is followed by a call to GATED for the 
command line to be read into the SL after the G marker. An E marker is 
now placed after the command line, and a test is made for a continuation 
line (if the last character in the line is a hyphen, a continuation line 
is expected) . If no continuation is expected, the E marker is set to 
point back to the saved G marker address; SLHEND is reset to the end of 
E marker, SLHCSA is reset to the first byte of the command line; SLPAVL 
is diminshed by the line length (plus the 6-byte E marker) ; and, an EXIT 
is taken. 

If there is a continuation, a test is made to determine if sufficient 
SL space exists for another line. If not, CZASC2 is called to expand 
the SL by another page- In any event, the E marker is set to point to 
the first available SL byte past itself (this may be on another page) , 
and control passes back to prompt to read another line into the SL at 
the position to which the E marker points. This logic is repeated until 
all continuation lines are read, after which the above procedure for no 
continuation line is executed (last E marker points back to the G 
marker) . 

Exits : This routine normally returns to the calling routine, via the 
RETURN macro instruction. 

System Control Block Usage ; 

New Task Common (CHANTC) 
Task Common CCHATCM) 
Source List Marker CCHASLM) 
Source List Page Header (CHASLP) 
Sublist Header (CHASLH) 

SOURCE LIST HANDLER SYNONYM EXPANDER — SYNSL (CZASC5) ; This routine is 
called when a synonym value exists for an isolated command. The synonym 
value is placed into the SL, and pointers are reset for its eventual 
execution. (See Chart AF. ) 

Entry ; CZASC5 - normal entry 

JNtodules Called ; None. 

Exits ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

Operation ; The routine establishes the base of the combined dictionary 
entry. A test is made to determine if enough space exists in the SL for 
the synonym value, plus 12 bytes for the prefix P and terminating mark- 
ers E. If space is not available, CZASC2 is called to expand the SL by 
one page. In either case, a P marker is now placed in the SL at the 
current end pointer (SLHEND), which points back to the current start 
address (SLHCSA) . The P marker address is saved, and SLHCSA is set to 
the first byte after the P marker. The synonym value is now moved from 
the combined dictionary entry (its length precedes it in the dictionary 
entry) into the SL at the new SLHCSA. An E marker, which points back to 
the P marker, is placed at the end of the synonym value in the SL. 
SLHEND is set to the end of the E marker; the available byte count 
(SLPA¥L) is diminished by the number of bytes in the synonym value plus 
12 bytes for the markers, and an EXIT is taken. 

Error Conditions ; There are no error conditions for this routine. 
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System Control Block Usage : 

Source List Marker CCHASLM) 
Source List Page Header (CHASLP) 
Sublist Header (CHASLH) 

SOURCE LIST HANDLER UPDATE ROUTINE (CZASC6) ; This routine is called to 
update the source list CSL> to the next command, or to the end of a com- 
mand line. (See Chart AF. ) 

Entry ; CZASC6 - normal entry 

Modules Called ; None. 

Exits : The routine normally returns to the calling routine via the 
RETURN macro instruction - 

Operation : The routine establishes the current sublist base from 
SLPCSL, and executes the GNC macro instruction to isolate the SL 
character at the current start address CSLHCSA) . The isolated character 
is tested for an EOB. If it is an EOB, an immediate EXIT is taken. If 
it is not, a test is made to determine if this entry is to update the SL 
to the next command. If it is not to update the SL, the routine iso- 
lates the next character. If it is, the current character is tested for 
a semicolon. The absence of a semicolon causes another character to be 
isolated; the presence of a semicolon causes an EXIT. In any event, an 
EXIT updates SLHCSA to the next command (the previous command is deli- 
mited by a semicolon) or to the end of the line (delimited by an EOB). 

Error Conditions : There are no error conditions for this routine. 

System Control Block Usage ; 

New Task Common (CHANTC) 
Source List Marker (CHASLM) 
Source List Page Header (CHASLP) 
Sublist Header (CHASLH) 

SOURCE LIST HANDLER SYSIN ROUTINE (CZASC7/CZASC8) : This routine is 
called via the SYSIN macro when a user desires to read data lines into 
or from the source list (SL) and to pass this information to a user- 
specified area. (See Chart AF. ) 

Entries : 

CZASC7 - privileged entry 
CZASC8 - nonprivileged entry 

Modules Called ; 

GATE (CZATC) To write from or read into the source list. 

Control Dictionary 
Handler (CZASD) To test hashed string for a default value. 

Exits : The routine normally returns to the calling routine via the 
RETURN macro instruction. 

Operation : The user may indicate the data source by specifying one of 
the following EBCDIC source codes: 

• G indicates that a line is to be obtained from SYSIN via GATE. 

• L indicates that a line is to be obtained from the source list. 
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• E indicates one of two alternatiires: CI) if the default value for 
SYSIN is G, a line is to be obtained from SYS IN via GATE- C2) If 
the default value for SYSIN is not equal to G, a line is to be 
obtained from the SL. 

The user may also indicate that commands are to be treated as data or 
message input by appending location code, S, to one of the above source 
codes. 

In processing G or E (type 1) requests, the user's SYSIN device is 
prompted for an input line. If there is not enough space in the SL for 
a new line (268j_o bytes) , the SL is expanded via a call to CZASC2. The 
current starting address of the SL CSLHCSA) is saved. If the task is 
conversational, the routine tests for a prompt message. If there is a 
message and the default value for LINENO is Y, a GTWAH is issued, other- 
wise, a GATRD is issued. The input line is read into the SL at its cur- 
rent end point CSLHEND). SLHCSA is updated to the line's first charact- 
er and an E marker that contains the previously saved SLHCSA is placed 
at the end of the line. If the task is nonconversational, the prompt 
string Cif one exists and LINENO is Y) is moved into the SL; SLHEND is 
updated past the prompt string and a GATRD is issued. The SYSIN 'line is 
put into the SL at its updated SLHEND and the actual record length is 
passed to the user. Then the entire string (prompt and input data) is 
written via GATWR to SYSOOT. An E marker that contains the previously 
saved SLHCSA is placed at the end of the line. SLHEND is updated to 
point past the E marker and the available byte count (SLPA¥L) is 
diminished by the number of bytes in the line plus 6 bytes for the E 
marker. Then for both conversational and nonconversational tasks, the 
input line is transmitted to the user. 

In processing L or E (type 2) requests, the character at SLHCSA is 
tested. If SLHCSA points to an E marker and the SYSIN code is LS, an 
exit is taken with a length of zero passed to the caller. If SLHCSA 
points to an E marker and the E marker points to a U marker, the user is 
notified via User Prompter that the request is non-serviceable and an 
exit is taken. Otherwise, the E marker is processed via CZASC4 and a 
line is obtained from the SL. 

For all requests, the SL pointer is updated, beginning at SLHCSA, to 
the first nonblank character, and the user input value for the maximum 
number of transmission characters is set. If the first nonblank 
character is not an underscore, a data line is transmitted. If the 
first nonblank character is an underscore, the next character is tested 
for an underscore. If there are two underscores at the beginning of the 
SL, the line is treated as data. Otherwise, the line is treated as an 
immediate command. Before termination, a test is performed to determine 
if the command is to be treated as data. If not, a return code of C is 
set in register 15 and an exit is taken. The data is now moved, one 
character at a time, until the user maximum is reached or an EOB is 
encountered. If the maximum is exceeded, a return code of ^l is set in 
register 15 and an exit is taken. 

Note: All nonconversational input data obtained via GATRD will be 
adjusted in the SL to eliminate the key, etc., depending on whether the 
input was VISAM, VSAW, etc. The line length passed to the user will 
reflect the actual record. A truncation return code will not be set for 
a nonconversational task if only blanks exceed the user's buffer. 

Error Conditions ; The routine returns a hexadecimal code in register 
15: 
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Code 
Hexadecimal Significance 

00 No errors detected. 

0^ Number of characters to move exceeds maximum. 

08 Attention interrupt detected by GATE. 

OC An immediate command was detected and executed. 

10 The input line was in keyboard format and a normal return 
was made. 

14 The input line was in keyboard format and the line was 
truncated. 

20 The input line was in card reader format and a normal 
return was made. 

2*» The input line was in card reader format and the line was 
truncated. 

40 SYS IN request no processed because: 

1) CKCLS detected error. 

2) E marker points to U marker. 

100 Continuation detected by GATE. 

Note ; If continuation is detected, a return code of 10 is returned in 
byte 2 of register 15. 

System Control Block Usage ; 

New Task Common (CHANTO 
Task Common (CHATCM) 
Source List Marker (CHASLM) 
Source List Page Header (CHASLP) 
Sublist Header (CHASLH) 

GNC MACRO ; The code generated by GNC initially picks up the character 
pointed to by the current SA and places it in output register 1. If the 
character is an EOB Cf irst character of an SL marker) , a test is made to 
determine if it begins an E marker. If an E marker exists at the cur- 
rent SA, control passes to the first instruction past the macro expan- 
sion (hereafter called an EXIT) ; otherwise CZASC3 is called to process 
the marker. Since CZASC3 determines a new SA, control passes back to 
examine the new character. 

If the character at the current SA wasn't an EOB, the current SA is 
incremented by one and the same character is tested for a continuation 
mark. If it's not a continuation character, an EXIT is made; otherwise 
a test is made to determine if the continuation character is followed by 
an E marker. If not, an EXIT is made with the continuation character in 
the output register. If it was, CZASC4 is called to update the SA to 
the first character in the continuation line and control passes back to 
process the new character. 

An operand may be specified with the GNC macro instruction. This 
operand specifies the location to get control if a POP IT return code is 
received after calling CZASC3 of CZASC4. In effect, the operand speci- 
fies a special exit. 
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Proqrammincf Notes : NEW TASK COMMON, CHANTC, and the SUBLIST HEADER, 
CHASLH, must be covered to assemble and use this macro. Use of this 
macro is currently restricted to the Command Analyzer and Executor, the 
Source List Handler, PCS, and the PROCDEF Expander • 



^ Control Dictionary Handler CC2ASD) 



The control dictionary handlers are a set of internal subroutines 
that operate on any dictionary of the form of the coiranand system control 
dictionaries. They provide the means to initialize, maintain, and use 
any dictionary of this form. (See Chart AG.) 

ENTRIES ; 

CZASDl - STARTFIX 

CZASD2 - STARTVAR 

CZASD3 - RFR 

CZASD4 - NEXTRFR 

CZASD5 - ENTR 

CZASD6 - DELENT 

CZASD7 - EXTDIC 

CZASD8 ~ PACKVAR 

CZASDX - GD¥ 

MODULES CALLED ; See individual routines. 

EXITS ; The routines normally return to the calling routine, via the 
RETURN macro instruction. 

OPERATION (GENERAL) ; Dictionary initialization is performed by either 
STARTFIX or STARTVAR, depending on the need for fixed-length or 
variable- length entries. These routines establish the dictionary and 
hash table in space provided by the user. A HASH macro instruction is 
provided for determinig the referece value of an eight character entry 
name. The RFR and NEXTRFR routines provide the capability to locate the 
appropriate position within the dictionary in order to use, add, 
replace, or delete an entry. NEXTRFR eliminates the necessity for 
beginning the search each time. Either one or the other of these muse 
be used prior to the use of ENTR or DELENT. 

ENTR performs the addition or replacement of an entry, and in the 
process calls EXTDIC as required. EXTDIC provides additional, initia- 
lized space. DELENT deletes an entry and makes necessary changes in the 
chain pointers. PACVAR is available to regain lost space in variable 
length dictionaries by reforming the dictionary. This function should 
be necessary only after excessive deletions have occurred. 

The GDV routine is called by the GDV macro instruction to retrieve a 
default value for a parameter name from the combined dictionary. Upon 
entry, Rl contains the VMA of the parameter name. The name length is 
preceded by a byte containing the string length, which cannot exceed 
eight bytes. On exit, the default value is moved to table A. Then Rl 
is set to point to table A which will contain the default value, if one 
is found in the combined dictionary. If a default value is not found, 
Rl is set to 0. The default value is preceded by a byte that contains 
the string length. 

ERROR CONDITIONS ; These are given in the individual routines. 

SYSTEM CONTROL BLOCK USAGE ; These are given in the individual routines. 
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STARTFIX Routine (CZASDl) ; This subroutine performs the functions 
necessary to initialize a dictionary composed of fixed-length entries. 
It establishes the hash chain and other necessary initial entries. (See 
Chart AG. ) 

Entry ; CZASDl - noriral entry 

Modules Called : None. 

Exits ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

Operation ; This routine uses the page of virtual storage indicated and 
sets the hash table entries to point to the available space-chain. Then 
the entry pointers are initialized for all entry spaces, as required by 
the length of the entries; finally, entry codes are initialized. 

Error Conditions ; There are no error conditions for this routine. 

System Control Block Usage ; 

Control Dictionary Heading CCHADCT) 
Control Dictionary Entry (CHADEN) 

STARTVAR ROUTINE CCZASD2) : This subroutine performs the functions 
necessary to initialize a dictionary that will contain variable length 
entries; it also establishes the necessary initial entries. (See Chart 
AG.) 

Entry ; CZASD2 - normal entry 

Modules Called : None . 

Exits: The routine returns to the calling routine, via the RETURN macro 
instruction. 

Operation ; STARTVAR uses the space and length to point the hash table 
entries to an available space. 

Error Conditions ; There are no error conditions for this subroutine. 

System Control Block Usage ; Control Dictionary Heading CCHADCT) . 

RFR ROUTINE CCZASD3) : This subroutine is used to locate a dictionary 
entry which may be added, replaced, or deleted. (See Chart AG.) 

Entry : CZASD3 - normal entry 

Modules Called; None. 



Exits: The routine returns to the calling routine, via the RETURN macro 
instruction. 

Operation ; After verifying the hash value, the next entry is examined 
for name and entry code. When the correct entry is located, the loca- 
tion of the entry is returned. Successive entries in the hash chain are 
cnecked until either a correct one is found or the end of the particular 
hash chain is reached. The absolute location of the preceding pointer 
is always retained. 

Error Conditions ; Register 15 will contain a if the entry was suc- 
cessfully located, and a 4 if no entry was found. It will contain 8 if 
the hash value was not valid, or the page containing the dictionary is 
not initialized. 
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System Control Block Usage : 

Control Dictionary Heading (CHADCT) 
Control Dictionary Entry CCHADEN) 

NEXTRFR ROUTINE CCZASD4) ; This subroutine is used to locate an entry in 
a dictionary without going through the entire hash chain, (See Chart 
AG.) 

Entry : CZASD4 - normal entry 

Modules Called ; None, 

Exits: The routine returns to the calling routine, via the RETURN macro 
instruction. 

Operation : This routine begins at the point where RFR stopped. Succes- 
sive entries in the hash chain are checked until either a correct one is 
found or the end of the particular hash chain is reached. The absolute 
location of the preceding pointer is always retained, and the location 
of the entry found is returned. 

Error Conditions : Register 15 will contain: 

- successful location 
4 - unsuccessful location 

8 - error 

System Control Block Usage : 

Control Dictionary Heading CCHADCT) 
Control Dictionary Entry (CHADEN) 

ENTR ROUTINE CCZASD5) : This routine, which is used to add or to replace 
an entry, is always used following an RFR or a NEXTRFR. If the preced- 
ing locating routine was successful, ENTR will replace the old entry. 
If the preceding locating routine was unsuccessful, ENTR will add the 
new entry. (See Chart AG.) 

Entry : CZASD5 - normal entry 

Modules Called ; EXTDIC (CZASD7) - To extend the dictionary. 

Exits ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

Operation ; ENTR checks the preceding pointer, which was retained by RFR 
or NEXTRFR, and determines whether to replace or to add the new entry. 
It extends the dictionary, if necessary, by calling EXTDIC and proceeds 
to perform the addition or replacement. The preceding pointer is 
changed, and retained, while the location of the entry is returned. 

Error Conditions : Register 15 will contain: 

- successful entry 
14 - unsuccessful entry 

8 - error 

System Control Block Usage : 

Control Dictionary Heading (CHADCT) 
Control Dictionary Entry (CHADEN) 

DELENT ROUTINE (CZASD6) ; This routine is used to delete an existing 
dictionary entry. (See Chart AG.) 
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Entry ; CZASD6 - normal entry 

Modules Called ; None. 

Exits; The routine returns to the calling routine, via the RETURN macro 
instruction • 

Operation ; This routine is used only following a successful RFR or 
NEXTRFR. It deletes the located entry by setting the entry code equal 
to and by modifying the next entry pointers of the hash chain. It 
also changes the retained preceding pointer. The new space is made 
available in fixed-length dictionaries. 

Error Conditions ; The retained pointer is checked for zero to prevent 
the destruction of the sequence. Register 15 contains; 

- successful deletion 
8 - invalid request 

System Control Block Usage ; 

Control Dictionary Heading CCHADCT) 
Control Dictionary Entry CCHADEN) 

EXTDIC ROUTINE CCZASD?) ; This routine is used when it is necessary to 
provide additional space for the dictionary. It is called by ENTR when 
there is insufficient space to accommodate a new entry. (See Chart AG.) 

Entry ; CZASD7 - normal entry 

Modules Called ; 

EXPAND To get additional contiguous space. 

GETMAIN To get storage. 

Exits ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

Operation ; If it is necessary, GETMAIN is used to get additional 
storage. Then the dictionary is moved to ensure page alignment. EXTDIC 
calls EXPAND to get additional space to insure contiguous space for the 
continuation of the dictionary. The additional space is initialized, 
and the dictionary length and dictionary origin are changed 
appropriately . 

Error Conditions ; There are no error conditions for this routine. 

System Control Block Usage ; 

Control Dictionary Heading CCHADCT) 
Control Dictionary Entry (CHADEN) 

PACKVAR ROUTINE (CZASD8) ; This routine is used when it becomes feasible 
to reclaim lost space which is due to numerous deletions. This is 
necessary only in the case of variable-length entry dictionaries where 
deleted entry space is not reused. (See Chart AG.) 

Entry ; CZASD8 - normal entry 

Modules Called ; STARTVAR (CZASD2) . To start a new dictionary. 

Exits; The routine returns to the calling routine, via the RETURN macro 
instruction. 
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Operation ; PACKVMl uses the dictionary handlers to form a new dic- 
tionary and to establish a new hash table which works through each hash 
chain in turn, until all entries from the existing dictionary are put 
into the newly formed dictionary. The routine returns the new dic- 
tionary origin. 

Error Conditions ; Register 15 will contain; 

- successfully packed dictionary 
4 - error 

System Control Block Usage ; 

Control Dictionary Heading CCHADCT) 
Control Dictionary Entry (CHADEN) 

GDV ROUTINE CCZASDX) ; This routine is called by the GDV macro to deter- 
mine whether a default value exists in the dictionary for a specified 
entry. (See Chart AG.) 

Entry ; CZASDX - normal entry 

Modules Called ; 

RFR (CZASD3) To search the dictionary. 

Exits ; The routine returns to the calling module via the RETURN macro 
i ns t ruct i on . 

Operation ; GDV uses a pointer in register 1 to find a pointer to an 
eight-byte field containing the name for which the search is to be made- 
The name is hashed, using the EASH macro. RFR is called, using these as 
parameters; name, hash value, default code, dictionary location, and 
the location in which the pointer to the value is to be placed. If a 
value is found, a pointer to the value is returned. 

Error Conditions ; Register 1 will contain the VMA of the default value, 
if one was found. If one was not found, register 1 will contain all 
zeros. The default value will be preceded by one byte containing the 
string length. 

System Control Block Usage ; None. 
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SECTION 3: TEXT EDITOR 



The Text: Editor is a collecrtion of routines that provide a facility 
for creating and manipulating lines of data in a VISAM data set. Com- 
munications are provided to allow editing to be performed at the same 
time that a language processor is compiling or assembling from a source 
data set. 

The principal interface between the Text Editor routines and the rest 
of the system is provided by the User Controller routine (CZAMZ), (The 
User Controller serves as an interface to all non-privileged code. All 
Text Editor routines are nonprivileged except the Edit Initialization 
and DATALINE routines.) 

Most of the Text Editor routines are command processor routines; they 
are invoked when the specific commands they process are issued by the 
user. Two of these, LIST (CZASP) and EXCISE (CZASL) , are also called by 
many of the other Editor command processors. 

The Translation Table Initialization (TRIN) routine (CZBTA/CZBSY) , 
Translation Table Update CTRUP) routine CCZASS/CZBSX) , MATCH (CZAST) , 
and DATALINE (CZASG) are all service routines; they do not process spe- 
cific commands, but instead serve as common code for the command proces- 
sors. Figure 9 shows the logical connections between command 
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Figure 9, Interrelation of Text Editor Command Processor and Service 
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processor and service routines , and among the comroand processors 
theins elves. 

The Edit Controller CCZATS) is essentially a command processor rou- 
tine for the EDIT and END commands. It initializes the Text Editor when 
an EDIT command is issued, and terminates Text Editor processing when an 
END command is encountered Cor another LPC is initiated) • The Edit Con- 
troller performs a function that is similar to the LPC function for 
assembler, FORTRAN, PL/I, and linkage editor- 

The principal function of the Edit Initialization routine CCZBSE) is 
to establish a transaction table by means of TRIN and GETMAIN when a 
LPCINIT macro instruction has been issued. After the Transaction Table 
has been established, control is returned to the User Controller to pro- 
cess the next command. 

The ENABLE and DISABLE commands are not handled by command processor 
routines in the Text Editor; they are instead entry points in the User 
Controller routine. 

The virtual access method CVAM) is used for the data sets being 
edited. The DCB for the data set is in the PSECT that is common to all 
the modules in the Text Editor except the Edit Controller. All Text 
Editor modules issue a COPY macro instruction; each DSECT (CZBSEDM) 
generated by this macro maps the Text Editor's common PSECT (CZBSEW) . 

All of the commands of the Text Editor are entered in the BPKD form. 
Each cx>mmand points to a common BPKD that is located in the portion of 
the User Controller routine that is part of its LPCEDIT routine- The 
BPKD is located by the User Controller, and executed. The procedure 
permits a controlled dispatch of many nonprivileged routines under the 
precise control of the Language Processor Controller which is located in 
a section of the User Controller routine. 
cou 

► Text Editor Controller — EDIT Command Routine (C2ATS1/CZATS2) 

This routine is the language processor controller for the Text Edi- 
tor. When entered as the result of the EDIT command, this routine 
initiates the Text Editor and monitors any succeeding Editor commands. 
When entered as the result of the END command, it terminates Text Editor 
processing. (See Chart AH.) 

ENTRIES : 

CZATSl - entry exclusively from the Command Analyzer through the Edit 

Controller for the EDIT command 
CZATS2 - entry is from the User Controller (CZAMZ) upon recognition of 

the END command, or if the user initiates another LPC 

MODULES CALLED ; 

Control Dictionary 
Handler GDV CCZASDX) Gets default value for REGSIZE. 

DDEF (CZAEAl) Creates a JFCB for the data set, if none already 

exists. 

RELEASE CCZAFJ3) Releases the data definition, during END proces- 
sing, if CZATS had to call DDEF during EDIT 
processing. 

FINDDS CCZAECl) Determines whether the requested data set has 

been defined. 
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FINDJFCB (CZAEBl) Locates the object data set, if FINDDS cannot 

find the data set. 

REGION CCZASFl) Validates RNAME, if it has been entered as one of 

EDIT's parameters. 

SCAN Routine 
CHECKDS CCZiy^C2) Validates the data set name. 

User Control (CZAMZ) : 

LPCINIT (CZASWl) Initiates the Editor as an LPC. 

LPCEDIT CCZASW4) Begins execution of Editor coiranands. 

User Prompter CCZATJl) Issues diagnostic messages to the user. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION: An overview of the Editor Controller's logic is displayed in 
Figure 10. The routine must first validate the data set name. When it 
is assured of a valid dsname, it can determine whether that dsname 
represents an already defined data set by calling FINDDS. If FINDDS 
returns without a JFCB, CZATS performs the data definition itself: it 
creates a ddname, fills in the DCB with default values, calls DDEF to 
create a JFCB, and then notes that it supplied the DCB parameters. 
These DCB parameters depend in part on whether REGSIZE has been speci- 
fied. If REGSIZE is zero, CZATS sets KEYLEN to seven. If there is a 
value for REGSIZE, CZATS adds seven to it to determine KEYLEN. Values 
of RECFM=V and RKP=4 are assumed. The value for LRECL is determined by 
REGSIZE: When REGSIZE=0, LRECL=132; when REGSIZ£#0, LRECL=256. 

If FINDDS locates a JFCB, CZATS determines the disposition of the 
data set. If it is other than "old," CZATS branches to another section 
of logic to examine the Task Data Definition Table (TDT) and set the 
attributes of the data set. If KEYLEN in the TDT=0, and REGSIZE is 
valid, CZATS sets the DCBKEY=REGSIZE+7. If LRECL in the TDT is 0, it 
sets RECL=132. It tests for record format (RECFM) in the TDT. If there 
is no setting, or if the setting indicates variable format records, 
CZATS sets RECFM=V and RKP=4. If RECFM=F, there roust not be a setting 
for RKP in the TDT- 

CZATS next tests for and validates a member name, and, after testing 
the user's qualifications, opens the requested data set either for input 
or update. A value for REGSIZE may be entered as one of the EDIT com- 
mand's operands — CZATS tests for and validates such an occurrence, and 
sets LRECL in the DCB accordingly. It then tests for a partitioned data 
set. If this data set is not partitioned, CZATS can now begin the final 
stage of its processing. However, if the data set is partitioned, CZATS 
must first deal with it. 

If the data set is partitioned, CZATS tries to locate the member and 
open it via the FIND macro instruction. If the member is found, or has 
already been opened, and it is a VISAM member, CZATS branches to its 
final stage. (If in this processing CZATS finds that REGSIZE4-7#DCBKEY, 
it informs the user that REGSIZE has been set to 8.) If the member is 
new, and not in SYSULIB, CZATS creates and closes it via the STOW macro 
instruction. The following DDEF options are present, if the member is 
in SysuliB, and if the member being processed is either SYSPRO or SYS- 
bilFz RKP=i|, KEYLEN=15, RECFM=V, LRECL=256. In any event, the new mem- 
JDer is now reopened via the FIND macro instruction. 
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Figure 10. Overview of the Text Editor Controller logic 

In its final stage of processing, CZATS determines if it provided the 
DCB parameters. If not, it ensures that the RECFM and RKP parameters 
are valid. CZATS then executes the LPCINIT macro to initialize itself 
as a language processor controller. On return, it determines whether a 
region name (RNAME) was entered as one of the EDIT command's operands. 
If so, it calls the REGION processor CCZASF) . CZATS then sets the Tran- 
saction Table ENABLE/DISABLE switch to enabled. If this is an old 
region or old line data set, the CLP is set to the first line of the 
region or data set, and an exit is issued to return the user to command 
mode. If this is a new region or new line data set, the editing proce- 
dure begins with the execution of the LPCEDIT macro instruction, which 
returns to the command system to await new Text Editor conmands. CZATS 
loops on LPCEDIT until the user terminates the Text Editor with an END 
command or another LPC. At this point, CZATS2 (END) is called. END 
closes the object data set (or members if partitioned), releases EDIT's 
DDEF, if necessary, and exits. 
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ERROR CONDITIONS ; The following conditions will cause a diagnostic mes- 
sage to be issued and an error exit taken: 

1. Member name or dsname not supplied • 

2. Invalid dsname. 

3. Member name longer than eight bytes • 

4. Invalid REGSIZE specified. 

5. Object data set not VISAM or VPikM. 

6. Object data set new and read-only. 

7. Object data set VPAM and no member name supplied. 

8. Unsuccessful FIND on the supplied member name. 

9. Member not VISAM. 

10. DDEF unsuccessful. 

11. Invalid DOB parameters. 

12. Invalid BASE default attribute. 

13. Invalid region name (Name) . 

SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block (CHADCB) 
Task Definition Table (CHATDT) 
Transaction Table (CHATRN) 

- CONTEXT Command Routine (CZASM) 

The routine is entered from the User Controller when a CONTEXT com- 
mand is encountered. It searches within a range of lines (nl to n2) and 
character positions in the object data set for a given string (string 
1> , and upon finding it, replaces that string with a second string 
(string 2). (See Chart AI.) 

ENTRY ; CZASMl - normal entry 

MODULES CALLED : 

Control Dictionary 
Handler - GDV (CZASDX) Gets default value. 

TRIN (CZBTA) Initializes the Transaction Table. 

EXCISE (CZASL2,3> CZASL2 resolves the beginning line number (nl); 

CZASL3 resolves the last line number (n2). 

TRUP CCZASS1,2) CZASSl adds a line to the Transaction Table 

addition list. CZASS2 adds a line to the Tran- 
saction Table deletion list. 

MATCH (CZAST) Searches for the string to be replaced (string 

1) , and converts hexadecimal input when 
specified. 

User Prompter (CZATJl) Issues diagnostic messages to the user. 



LIST CCZASP) Converts the substitBtion string (string 2) for 

hexadecimal input. 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. An error exit to the calling routine is made 
when the required parameters are not specified - 

OPERATION: CONTEXT establishes the range of lines to be searched. It 
sets up the MATCH routine parameters to start at the given character 
position for the first line, obtains the first line (via GET) , and calls 
MATCH to search the line for string 1 and convert hexadecimal input when 
specified. If string 1 is found, it is replaced with string 2. LIST 
CCZASP3) resolves hexadecimal input for string 2. The match character 
position is then reset beyond the position where the last string was 
found and MATCH is reentered until the line is exhausted. The new rec- 
ord is written into the data set. CONTEXT then checks the transaction 
processed switch (TRNPRO) . If the the previous transactions have been 
processed, TRIN is called to reset the transaction table. Successive 
lines are located and searched until the entire range of lines has been 
processed. 

If the default value for TRANTAB is Y, in every line where string 1 
has been replaced with string 2 at least one time, the original line is 
entered in the transaction table as a deletion, and the edited line is 
entered as an addition. When the entire range has been processed, the 
current line pointer is set to the line following the last line searched 
(n2) , or, if n2 is the last line of the data set or region, to n2 + 
INCRj CONTEXT then returns to the calling program. 

ERROR CONDITIONS : A diagnostic message is issued and an exit taken 
under the following conditions: 

1. String 1 not given. 

2. Data set null. 

3. nl or n2 not resolved (message issued by CZASL) . 

4. nl > n2 (invalid range). 

5. Starting character position greater than ending position. 

6. Starting or ending character positions invalid. 

7. Error on WRITE operation. 

8. Match not found. 

SYSTEM CONTROL BLOCK USAGE : 

Data Control Block (CHADCB) 
Transaction Table (CHATRN) 
New Task Common (CHANTC) 



^ CORRECT Command Routine (CZASQ) 



The routine is entered by the User Controller when a CORRECT command 
is encountered. It initializes the Text Editor to accept correction 
lines from SYSIN, and make corrections within a range of lines and 
character positions in the data set. (See Chart AJ.) 

ENTRY: CZASQl - normal entry 
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MODULES CALLED ; 

SYSIN CCZASC7,8) Reads the expected data, 

TRUP CCZASS1&2) Updates the Transaction Table (CHATRN) • 

THIN (CZBTAl) Initializes CHATRN, 

User Prompter CCZATJl) Issues messages to the user. 

EXCISE (CZASL2,3) Calculates line numbers nl and n2 as indicated 

by input values. 

LIST CCZASP2) Converts hexadecimal input data and prints a 

line on user's SYSOUT. 

EXITS ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

OPERATION ; CZASQl establishes the parameter defaults and replaces the 
correction markers if the CORMRK parameter has been specified. The 
first line Cnl) is then obtained via a READ- by-key operation, and, if 
hexadecimal output is specified, CZASP2 is called to convert the data to 
the EBCDIC representation of hexadecimal. When only one line is speci- 
fied to be corrected, the user is prompted with the line. SYSIN is 
called to read the correction line (that is, the string of correction 
markers) . 

A scan of both the object line and the correction line is initiated 
at the column of data specified by the SCOL parameter in the CORRECT 
command. If none was present, the scan starts at the first character of 
data . 

The scan proceeds character t>y character until the end of the object 
line is reached- The first correction line character (CLC) is examined 
to determine if it is a correction marker. If it is not a correction 
ifiarker, the CLC is placed in the output line. If it is a duplication 
marker, the object line character (OLC) is placed in the output line. 
The input and output byte counts are advanced and the next CLC and OLC 
are examined in the same fashion. 

The relationship of OLC to CLC is summarized as follows: 

1. CLC=* All OLCs are duplicated until the next correction marker is 

encountered. 

2. CLC=$ This column is duplicated and all following non-correction- 

marker characters replace their corresponding OLCs until 
another correction marker is found. 

3. CLC=% This column is removed from the object line, and following 

object columns are duplicated until another correction 
marker is reached. 

4. CLC=a This OLC is duplicated, and all succeeding output charac- 

ters are obtained from a replacement line (read at this 
time by SYSIN) until an a (or end of line) is encountered 
in the replacement line, after which the scanning resumes 
from the correction line. 

5. CLC=# This functions exactly as the a character except that the 

characters entered for the replacement line are treated as 
hexadecimal characters. Only valid hexadecimal characters 

are accepted. 
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When the end of the object line is reached, the line is written to 
the data set; if the default value for TRANTAB is Y, the transaction 
table will be updated. The transaction processed switch (TRNPRO) is 
tested. If previous transactions have been processed, TRIN is called to 
reinitialize the transaction table. CZASQ then calls TRUP to manipulate 
the addition and deletion lists in the transaction table. On return, 
the next object line is read (if there is one), all byte counts are 
reinitialized, and the saroe correction/replacerr.ent lines are applied to 
the new object line. The CLP is set to the line number after n2, or to 
n2 + INCR if n2 is the last line of the data set. 

ERROR CONDITIONS : The following error conditions will cause a diagnost- 
ic message to be issued and an exit taken: 

1. Output line exceeds a page. 

2. Correction line end found prior to completion. The rest of the 
output line is left untouched. 

3. ni or n2 cannot be resolved. 

4. Hexadecimal input contains invalid character. 

5. SCOL value is non-decimal. 

6. Invalid range specified. 

7. CHAR parameter invalid. 

8. SYNAD on WRITE operation. 

9. SCOL value greater than record length. 

SYSTEM CONTROL BLOCK USAGE : 

Data Control Block CCHADCB) 
Transaction Table (CHATRN) 



^ OATALINE Entry Service Routine (CZASG) 



This privileged routine is entered when data is expected by EDIT, 
INSERT, REGION, or REVISE. It reads the line using SYSIN, assigns a 
line number, and places the new line in the data set. (See Chart AO.) 

ENTRIES ; 

CZASGl - normal entry 

CZASG2 - hexadecimal input conversion routine 

MODULES CALLED : 

TRIN CCZBTAl) Initializes the Transaction Table. 

TRUP CCZASSl) Places an addition in the Transaction Table. 

SYSIN CCZASCS) Reads a line. 

User Controller Dispatches nonprivileged scan routine? cancels scan 
(CZAMZ1,14) routine previously terminated by an attention 
interrupt ion . 

User Prompter Prints diagnostic messages. 

CCZATJl) 
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EXITS ; The routine processes lines reiteratively until an unusual con- 
dition is detected (such as the CLP exceeding N2MAX, or the recognition 
of a command) and control is returned to the calling program. See 
••Error Conditions" for a list of the conditions under which exits are 
taken • 

OPERATION: If a previous scan routine has been terminated by an atten- 
tion interruption. User Controller (CZAMZ14) is called to cancel it« 
DATALINE next compares the CLP to N2MAX. If the comparison is high or 
equal, the User Prompter is called to inform the user that the line 
already exists; register 1 is set to zero, and control is returned to 
the calling routine. If the CLP is less than N2MAX, and DATALINE was 
entered as a result of a REVISE or INSERT command, the increment value 
is resolved. 

The Source List Handler SYSIN routine (CZASC8) is then called via the 
SYSIN macro instruction to read the line from the source list. If a 
command or an attention interruption is detected, register 1 is set to 
zero and the routine exits. Otherwise, the conversion routine CCZASG2) 
within DATALINE is entered; this routine provides for conversion of 
hexadecimal data to EBCDIC representation. 

On return, DATALINE checks to see if concatenation is required. If 
CONREC=Y and a concatenation character is detected at the end of the 
line, CZASC8 is reentered until concatenation is complete. 

If there is a value in TRNSCAN, DATALINE calls the routine found 
there via CZAMZl with a two-word parameter list. The first word points 
to the input string, preceded by a byte indicating the string length; 
the second word points to a byte in CHBAAA where the scan routine may 
pass a return code. 

If the scan routine indicates that the line is acceptable, DATALINE 
enters the line into the data set with a WRITE-by-key operation and 
causes the line to be added to the Transaction Table addition list. The 
CLP is then updated, and DATLINE loops back to read another line. 

ERROR CONDITIONS ; Under the following conditions the user is prompted 
with a diagnostic message, the current record is ignored, and DATALINE 
reads another line of data : 

1. The specified scan routine indicates that the data line was inval- 
id, and the next data line should be read (return code 4 or 8) . 

2. An error occurs during the WRITE operation, keys equal. 

The user is prompted with a diagnostic message and DATALINE exits 
under the following conditions: 

1. CLP equal to or greater than N2MAX. 

2. Invalid INCR. 

3. An underscore detected at the beginning of the data line (no diag- 
nostic issued). 

4. An attention interruption condition detected (no diagnostic 
issued) - 

5. Specified scan routine indicates that the data line is invalid and 
further input should not be accepted (return code null or C) . 

6. An error occurs during the WRITE operation, keys not equal. 

7. The line number plus INCR exceeds 9999999. 
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SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block CCHADCB) 
New Task Common (CHANTC) 

Profile Character and Switch Table CCHAPCT) 
Transaction Table (CHATRN) 

I^ Edit Initialization Routine (C2BSE) 

This routine initializes the Transaction Table for a new data set. 
(See Chart UK. ) 

ENTRY : CZBSEl - normal entry 

MODULES CALLED: 



User Prompter CCZATJl) 
TRIN (CZBTA) 

GETMAIN CCZCGA2) 



Prompts user with current key. 

Initializes addition and deletion lists in 
the Transaction Table. 

Gets a page to be shared by all Text Editor 
modules. 



User Controller CCZASW9> Processes an implicit end. 

EXITS : The routine returns to the calling routine, via the RETURN macro 
instruction. 

OPERATION ; The Edit Initialization routine is entered from the User 
Controller as a result of the execution of the LPCINIT macro instruc- 
tion. This may be a result of the FTN, ASM, or other language processor 
invocation. After a SETL is performed to the beginning of the data set, 
the first record is obtained. If the data set is empty, the CLP will be 
set to the value specified by BASE (if valid) or to 100; otherwise the 
CLP is set to the first line of the region or data set. 

TRIN is then called to initialize the addition and deletion lines in 
the Transaction Table. Register 1 is set to zero for a region data set, 
or to the address of the CZASGl VCON/RCON pair for a non- region data 
set. Control is then returned to the User Controller routine. 

ERROR CONDITIONS ; The routine prompts the user, invokes an implicit 
end, and returns if the line number or BASE is invalid. 

SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block CCHADCB) 
Transaction Table (CHATRN) 
New Task Common (CHANTC) 

►EXCERPT Command Routine (CZASK) 



This routine is called by the User Controller when an EXCERPT command 
is encountered. EXCERPT incorporates a range of lines from another data 
set into the data set currently being edited. Entry parameters are the 
name of the data set to be sampled, the region name, and the numbers of 
the first and last lines to be included. (See Chart AL. ) 

ENTRY : CZASKl - normal entry 

MODULES CALLED : 

TRUP (CZASSl) Updates the transaction table. 
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TRIM (CZBTAl) Reinitializes the transaction table. 

User Prompter CCZATJl) Prints error messages. 

FINDDS CCZAECl) Finds JFCB for DSNAME in input parameter. 

SCAN Package CCZAAC) Analyzes input parameters. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction- 

OPERATION : On entry, if no data set name is input, the user is prompted 
and an error exit is taken. CZASK then validates the region name, if 
supplied, and issues a CBECKDS macro to validate the data set name. If 
the data set from which the data is to be taken is the same as the tar- 
get data set, the target data set is first closed and then opened for 
update. CZATS next calls CZAECl to locate the JFCB, and on return, 
opens the included data set. 

The line numbers parameters are examined to determine what part of 
the data set is to be included: 

1. If both line numbers are defaulted, it is assumed that the entire 
data set is to be included. A SETL to the beginning is perfomedi 
n2 is set to LAST. 

2. If only a region name is present, the entire region which has been 
named is included. A series of SETLs is used to find the first and 
last lines of the region; nl and n2 are initialized accordingly. 

3. If only nl is present, the single line referred to is included; 
both nl and n2 are set to the same key. 

4. If both nl and n2 are explicitly given, the range of lines from nl 
to n2 is included. 

After establishing the range of inclusion, the included lines are placed 
in order. Each line is renumbered using BASE and INCR and a check is 
performed to ensure that N2MAX has not been exceeded. The included 
lines are then written into the data set using WRITE-new-key. The tran- 
saction processed switch (TRNPRO) is tested to see if previous transac- 
tions have been processed. If so, TRIN is called to initialize the 
Transaction Table prior to entering the first line. As each line is 
written, it is entered in the Transaction table as an addition if the 
default value for TRANTAB=Y. When the task has been completed, EXCERPT 
calls CLOSE to close the sampled data set. 

ERROR CONDITIONS ; Should the included renumbered lines overflow the 
maximum (N2MAX>, the overflow lines will be ignored and the user will be 
prompted with a diagnostic message. The records already processed are 
deleted, and control is returned to the calling routine. 

If the range of lines or region indicated is not found in the input 
data set, or if the data set or region does not exist, the entire com- 
mand will be ignored and the user will be prompted with a diagnostic 
message. 

If the data set from which lines are being included ends before the 
line number specified by n2 is encountered, the user is informed by a 
diagnostic message. The routine exits to the calling program- 
ed 



SYSTEM CONTROL BLOCK USAGE ; 

Data control Block (CHADCB) 

Task Data Definition Table (CHATDT) 

Transaction Table (CHATRN) 



^ EXCISE Cominand Routine (CZiVSL) 

This routine is called by the User Controller when an EXCISE command 
is encountered; it is also called hj other Text Editor routines to 
resolve the user's references to line numbers in the data set being 
edited. EXCISE deletes a range of lines from the data set. Entry pa- 
rameters are the first and last lines to be deleted, (See Chart AM« ) 



ENTRIES ; 

CZASLi - 

CZALS2 - 

CZASL3 - 

CZASL4 - 



entry point to delete lines from the data set 
entry point to resolve nl of a range of lines 
entry point to resolve n2 of a range of lines 
entry point to resolve one number not part of a range 



MODULES CALLED: 



EXCISE CCZASL1,2,&3) 



Calculates line numbers nl and n2 as indicated 
by input values. 



TRUP CCZASS2) Defines linkage to this routine. 

TRIN (CZBTAl) Initializes addition and deletion lists. 

User Prompter (CZATJl) Issues diagnostic messages to the user. 

EXITS ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

OPERATION ; When entered at CZASLI, EXCISE resolves any defaults in the 
line number parameters. Each line in the indicated range is then 
deleted by calling DELREC. The transaction processed switch (TRNPRO) is 
tested. If previous transactions have been processed, TRIN is called to 
reinitialize the Transaction Table. A deletion entry is made for each 
line in the Transaction Table. The CLP is set to the first line deleted 
and N2MAX is set to the first line beyond the deletion range if there is 
a line, or 9999999 if there is no line. 

When EXCISE is entered at CZASL2, CZASL3, or CZASL4, it is determined 
whether the line number the user specified was relative or absolute. If 
absolute, the line number is resolved by using a SETL by key. If the 
line number is relative, SETL NEXT or SETL PREVIOUS is used to arrive at 
the requested line. 

If CZASL is able to successfully resolve the line number, it stores 
the address of the key for the record in the location that was specified 
in register «♦ 1:^ the calling program. Otherwise, register 2, which upon 
entry contained the address of the input line, is cleared to zeros. 

ERROR CONDITIONS ; The user is issued a diagnostic message and an exit 
is taken under the following conditions: 

1. Only one line is specified and it does not exist in the data set. 

2. No lines exist in the current region or line data set. 

3. nl or n2 specified as a plus-or-rainus integer, and there are not as 
many lines from the CLP in the region or data set. 
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SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block CCHADCB) 
Transaction Table CCHATRN) 

^INSERT Command Routine CCZASJ) 

INSERT, which is entered from the User Controller when an INSERT com- 
mand is encountered, prepares the Text Editor to accept data lines for 
insertion following a given line in the source data set. (See Chart 
AN.) 

ENTRY ; CZASJl - normal entry 

MODULES CALLED ; 

DATALINE CCZASG) Reads the expected data. 

EXCISE CCZASL^l Resolves the line number. 

User Prompter (CZATJ) Prints messages to the user. 

TRIN (CZBTAl) Initializes the Transaction Table. 

EXITS ; The routine returns to the calling routine, via the RETURN macro 
instruction. Register 1 contains the address of the CZASGl VCON/RCON 
pair to indicate that data is expected. 

OPERATION ; The data set is initialized so that subsequent new data 
lines are inserted following line nl. N2MAX is set to the next existing 
line after nl. There is no deletion of existing lines. 

ERROR CONDITIONS ; If a line number is entered which EXCISE cannot 
resolve, or if an invalid increment is specified, the user is prompted 
and the command is canceled. 

SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block (CHADCB) 
Transaction Table CCHATRN) 



^ LIST Command Routine (CZASP) 



The routine is entered by the User Controller whenever a LIST command 
is encountered. It lists a range of lines from a data set and places 
them on SYSOUT. Entry parameters are either the current line pointer, 
or the first (nl) and last (n2) lines to be listed (along with optional 
starting and ending character positions) plus the mode (CHAR) in which 
the lines are to be listed. (See Chart AP.) 

ENTRIES ; 

CZASPl - normal entry 

CZASP2 - hexadecimal input conversion entry 

CZASP3 - hexadecimal output conversion entry 

MODULES CALLED ; 

Control Dictionary 
Handler - GDV (CZASDX) Gets default value for LINENO. 

EXCISE (CZASL2,3) Calculates the limits of the area to be listed. 

GATWR,GTWRC (CZATC) Writes records to user's SYSOUT. 
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User Prompter fCZATJl) Issues diagnostic messages to the user. 

EXITS: CZASPi and CZASP2 exit normally when their function is com- 
pleted; register 1 is set to zero, notifying the Text Editor that addi- 
tional data is not expected- Control is passed to the calling routine 
via the RETURN macro instruction, 

OPERATION ; If the first parameter Cnl) is specified as CLP, the current 
line pointer (in CHATRN) will be listed and CZASPI will exit. If nl 
(not specified as CLP) and n2 are specified, CZASP will resolve any 
character positions, then call CZASL to resolve the nl and n2 values. 
If n2 is defaulted, only nl is listed. If nl is defaulted and n2 is 
specified, nl will be set to the CLP. If both nl and n2 are defaulted, 
the entire data set will be listed. The CHAR parameter is checked for 
validity (valid values are H, C, and M) . If it is defaulted, and there 
is no value in the combined dictionary, C is assumed. 

GET is used to retrieve the lines, and GATE is used to list them on 
SYSOUT. A maximum of 256 characters are listed from each line. Data 
will be listed as specified by the CHAR parameter in character, hexade- 
cimal or mixed (character and underscored hexadecimal) format. The CLP 
is set to the line number after n2, if one exists; if n2 is the last 
line, the CLP is set to n2 + INCR. 

Entry point CZASP2 lists lines on SYSOUT, or converts data for LOCATE 
and CORRECT. 

Entry point CZASP3 converts hexadecimal input data from the EBCDIC 
representation. 

ERROR CONDITIONS ; The user is prompted and an error return taken when 
nl is greater than n2, nl or n2 cannot be resolved, an invalid character 
position is specified, the CHAR parameter is invalid, or the data set is 
empty. 

SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block (CHADCB) 
New Task Common (CHANTC) 
Transaction Table (CHATRN) 
Task Common (CHATCM) 
RESTBL Header (CHARHD) 

►LOCATE Command Routine (CZASN) 



The routine is entered from the User Controller when a LOCATE command 
is encountered. LOCATE searches a range of lines in a data set for a 
given character string. Parameters to LOCATE are the first Cnl) and 
last (n2) line numbers to be searched (along with optional starting and 
ending character positions) , and the string to be located. (See Chart 
AQ.) 

ENTRY: CZASNl - normal entry 

MODULES CALLED : 

Control Dictionary 
Handler - GDV (CZASDX) Gets default value. 

EXCISE CCZASL2,CZASL3) Calculates the limits of the area to be 

searched. 

LIST CCZASP2) Prints the line containing the string. 
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MATCH CCZASTl) Searches a line for the desired string. 

TRIN (CZBTAl) Initializes CHATRN. 

User Prompter (CZATJl) Issues diagnostic messages to the user, 

EXITS ; After printing the current key value the routine normally 
returns to the calling routine, via the RETURN macro instruction. 

OPERATION: LOCATE resolves the entry parameters. If all of the parame- 
ters are defaulted, or if the string is not found, the CLP is set to the 
line following the last line searched (n2> , or, if n2 is the last line 
of the data set, to n2 -•- INCR. 

If nl and n2 are defaulted, the entire data set is searched. If n2 
is defaulted, only the line specified by nl is searched. Both nl and n2 
may have character positions specified. These positions will apply to 
the entire range to be searched. LOCATE retrieves the record via VISAM 
GET (locate), then calls MATCH to search for the string. If the string 
is found, it is printed using LIST, and the CLP is set to the line con- 
taining it. (The CHAR value in the combined dictionary will determine 
the mode of the output. If there is no value, C is assumed.) 

ERROR CONDITIONS ; Under the following conditions the user is issued a 
diagnostic message and control is passed to the calling routine via the 
RETURN macro instruction: 

1. No string specified. 

2. Specified string not found. 

3. Data set empty. 

4. nl greater than n2. 

5. nl defaulted, but CLP set to non-existent line. 

6. nl or n2 not resolved (no message issued by LOCATE). 

7. Invalid starting or ending character positions. 

8. Specified starting character position greater than ending position. 

SYSTEM CONTROL BLOCK USAGE : 

Data Control Block (CHADCB) 
Transaction Table (CHATRN) 
New Task Common (CHANTC) 



^ MATCH Service Routine (CZAST) 



This routine is used to search a line, or a portion of a line, for a 
given string. (See Chart AR. ) 

ENTRY ; CZASTl - normal entry 

MODULES CALLED ; 

LIST (CZASP3) Converts to hexadecimal output. 

Control Dictionary 
Handler - GDV (CZASDX) Gets default value for HEXSW. 

EXITS: The routine returns to the calling routine, via the RETURN macro 
instruction. 
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OPERATION s If a conversion from EBCDIC to hexadecimal is required, the 
LIST routine (entry point CZASP3) is called. The given line is searched 
character by character until a match with the given string is found, or 
a match has not been found when the limit of the given line is reached • 
The result of the search is placed in register 2 and passed to the cal- 
ling routine • If a match was not found, this result is zero; if a match 
was found, register 2 will contain the character position within the 
line where the matching string begins. 

ERROR CONDITIONS ; None, 

SYSTEM CONTROL BLOCK USAGE : New Task Common CCHANTC) 

► NUMBER Command Routine (CZASU) 

NUMBER is called from the User Controller when NUMBER command is 
encountered. NUMBER is used to renumber a range of lines in the data 

set, CSee Chart AS,) 

ENTRY ; CZASUl - normal entry 

MODULES CALLED : 

EXCISE (CZASL2,3) Resolves line number nl and maximum 

number n2. 

TRUP CCZASS1,3) Updates addition and deletion lists. 

TRIN (CZBTAl) Initializes the Transaction Table. 

User Prompter (CZATJl) Issues diagnostic messages to the user. 

GETMAIN Obtains pages to store data set while 

numbering . 

FREEMAIN Releases pages acquired with GETMAIN. 

EXITS: The routine returns to the calling routine, via the RETURN macro 

instruction. 

OPERATION : NUMBER determines whether both line number parameters, nl 
and n2, have been defaulted. If so, nl is set to the first record of 
the data set or region, and n2 is set to the last record. If n2 has 
been specified but nl has been defaulted, nl is set to the value of the 
current line pointer; if nl has been specified but n2 defaulted, n2 is 
set to nl. EXCISE (CZASL2) is called to resolve line number parameters 
that have been specified. Unspecified BASE and INCR parameters are set 
to nl and 100, respectively. 

The records are read via GET in the locate mode. The transaction 
processed switch CTRNPRO is tested to determine whether previous tran- 
sactions have been processed. If they have, TRIN is called to initia- 
lize the transaction table. The record is then put in the deletion list 
to be deleted with DELREC-by-key. As the records are deleted, the 
number-of -lines counter is incremented. This is to insure all records 
will fit between BASE and limiting line. If they cannot, recovery is 
initiated by WRITE with the old key, and the command is cancelled. The 
lines are added to the addition list and placed with WRITE-new-key in 
the object data set until all of the lines are renumbered. 

If INCR is specified in such a way that it causes the limiting line 
number to be exceeded, NUMBER calculates a new increment by dividing the 
difference between BASE and the limiting line by the count of lines to 
be renumbered: 
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Resulting quotient ; 

100 

50 - 99 

20 - 49 

10 - 19 

5-9 

1 



Increment furnished ; 

100 
50 
20 
10 

5 

2 

1 



The user is then informed that the Text Editor has furnished the incre- 
ment, and execution continues, 

ERROR CONDITIONS ; If the BASE or INCR are incorrectly specified or in- 
valid, the user is prompted and NUMBER exits to the calling routine. 

SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block (CHADCB) 
Transaction Table CCHATRN) 



^ Profile Handler Command Routine (CZASZ) 



This privileged, reenterable, and nonresident routine saves the vir- 
tual storage user profile in USERLIB when a PROFILE command is executed- 
(See Chart AT. ) 

ENTRY; CZASZl - nonrial entry via BUILTIN call mechanism from the Com- 
mand Analyzer and Executor. 

MODULES CALLED : 

DICTEXTR (CZBTBX) Adds entries to the primary dictionary. 

STARTVAR (CZASD2) Initializes New Primary Dictionary in buffer. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION ; The Profile Handler routine saves a session profile by copy- 
ing it into USERLIB from virtual storage when a PROFILE command is 
issued. Entry is via the BUILTIN procedure call mechanism. The profile 
to be copied is constructed in a contiguous virtual storage area. The 
Cnaracter Translation Table, pointed to by PCTCTT, is moved into the 
PFLCTT area. The output character translation character, pointed to by 
PCTOCT, is moved into the PFLOCT area. The Profile Character and Switch 
table is moved from New Task Common into the PFLPCT area. 

The Primary Dictionary, starting at PFLPDC, is reinitialized using 
the STARTVAR routine of the Control Dictionary Handler. Then the Combi- 
ned Dictionary is searched, extracting all Primary Dictionary entries, 
which include synonym, default and command symbol definition entries. 
The extraction of command symbols is optional, based on the setting of 
the Command Symr>ol Switch. This switch setting originates as a PROFILE 
command parameter, which is passed as a calling parameter to the Profile 
Handler. The extracted entries are added to the empty Primary Dic- 
tionary in the profile through a call to the DICTEXTR routine (CZBTBX) . 

The USERLIB DCB is located, and the DCBLRE field set with the overall 
length of the profile. A FIND is issued to locate the SYSPRX member in 
the USERLIB- If one exists, it is deleted and replaced by the new pro- 
file, using a VSAM PUT. A STOW is issued to update the POD, and control 
is returned to the calling routine. 



70 



ERROR CONDITIONS : A code 1 ABEND is taken if an error return code is 
received following the FIND, STOW (Type D) or STOW (Type N) macro 
in str uct ions . 

SYSTEM CONTROL BLOCK USAGE S 

Data Control Block (CHADCB) 

Control Dictionary Header (CHADCT) 

User Profile (CHAPFL) 

New Task Coiranon (CHANTC) 

Profile Character and Switch Table CCHAPCT) 

► REGION Command Processor (CZASF) 

This routine is entered from the User Controller whenever a REGION 
coiranand is encountered; it is also entered when the RNAME parameter has 
been specified in an EDIT command. It locates or initializes a region 
of lines within the data set having a common region name (string prefix 
to the line number). The entry parameter is a - 2^0 character string 
which is saved in the Transaction Table as a region name, and is pre- 
fixed to all subsequent line numbers until another REGION is encoun- 
tered. If the entry parameter is defaulted a null string prefixes the 
subsequent line numbers, provided that the data set has regions. (See 
Chart AU.) 

ENTRY: CZASFl - normal entry 

MODULES CALLED ; 

DATALINE (CZASG) Reads the expected data. 

User Prompter (CZATJl) Prints error messages and gives the current 

key to the user. 

TRIN (CZBTAl) Initializes the Transaction Table. 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction, with register 1 containing the address of the 
CZASGl VCON/RCON pair to indicate that data is expected. The error exit 
is to the calling routine when the data set has no regions although a 
region has been specified. Normally, the Text Editor informs the user 
of the current key by means of the User Prompter. 

OPERATION : The DCB opened for the data set is retrieved from the tran- 
saction table and SETL is called to find the location of the key having 
the maximum number in the given region. The key is tested to determine 
if this is in the given region. If it is not, no region of that name 
exists, and the CLP is determined as follows: If a BASE exists, the CLP 
is set to the value of BASE; otherwise, a GDV will be done for BASE and 
the default value used to set the CLP. If no default exists, 100 is 
assumed. If the region does not exist, the CLP is set to the first line 
of the region. 

In the case where the region name is defaulted a name of all blanks 
is assumed if the data set has regions. A data set might not have 
regions, and in this case the key is a seven-digit number which can be 
initialized or added to as such- If this were the case, it would be 
unnecessary to use a REGION command. After a region has been located or 
initialized, REGION exits with the address of the CZASGl VCON/RCON pair 
in register 1 to indicate data is expected. 

ERRQF CONDITIONS ; If the user has specified a region name, the length 
of the key (DCBKEY) of the data set is tested. If it is equal to 7, the 
data set key has no region name, and the user is informed with a message 

issued by the User Prompter. 
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If the length of the specified region name plus 7 is greater than the 
length already specified for the data set key CDCBKEY) , the specified 
region name is truncated to conform and the user is informed with a mes- 
sage issued by the User Prompter. 

If a record is found with a key corresponding to the maximum key of 
the region (Region 9999999), the region is assumed to be full and the 
user is prompted with two messages issued by the User Prompter. 

Note : No records can be added to the data set until the user is more 
specific as to where records can be inserted. 

If the data set key is less than 7, the user receives a diagnostic 
error message. 

SYSTEM CONTROL BLOCK USAGE : 

Data Control Block tCHADCB) 

Transaction Table (CHATRN) 

Task Data Definition Table CCHATDT) 

► REVISE Command Routine (CZASH) 

This routine is entered from the User Controller whenever a REVISE 
command is encountered. (See Chart AV.) 

ENTRY ; CZASHl - normal entry 

MODULES CALLED ; 

EXCISE (CZASL) Deletes specified lines. 

EXITS; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION ; REVISE prepares the Text Editor to accept data for inclusion 
in the data set at a given point. If an increment is provided, it is 
stored in INCR for later reference by CZASG. If it is not provided, an 
increment of 100 is the default. CZASLl is entered to resolve the line 
numbers, and delete the lines. REVISE exits with the address of the 
CZASGl VCON/RCON pair in register 1 to indicate that data is expected. 

ERROR CONDITIONS ; The user is prompted if the specified increment is 
invalid. 

SYSTEM CONTROL BLCXIK USAGE ; 

Transaction Table (CHATRN) 

■^ STET Command Routine (CZASV) 

The routine is entered by the User Controller when a STET command is 
encountered. If TRANTAB=Y, it restores the data set to its condition 
prior to the most recent set of unprocessed transactions. If TRANTAB=N, 
STET will return to its caller. If the Text Editor is disabled, all of 
the editing commands entered since it was last enabled will be reversed. 
If the Text Editor is enabled, only the last transaction is reversible. 
(See Chart AW.) 

ENTRY; CZASVl - normal entry 

MODULES CALLED : 

TRIN (CZBTAl) Initializes the Transaction Table. 
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EXITS ; The routine returns to the calling routine, via the RETURN macro 
instruction- 

OPERATIQN ; The STET routine restores the data set to its previous con- 
dition by using DELREC and WRITE, The key of the line in the addition 
list CKEYA) is compared to that of the liije in the deletion list (KEYD) . 
If KEYA < KEYD, DELREC is called to delete the line of KEYA from the 
data set. If KEYA > KEYD, WRITE is called to write the line of KEYD 
into the data set. If the record already exists in the data set, the 
user's issued a message by the User Prompter. If KEYA = KEYD, WRITE is 
called to replace line KEYA with line KEYD. When the transactions have 
been processed, the pointer to the deletion list is exchanged with the 
pointer to the addition list. If there are no transactions, or if there 
is no Transaction Table (TRANTAB=N) , this command has no effect on the 
data set. 

ERROR CONDITIONS : None. 

SYSTEM CONTROL BLOCK USAGE S 

Data Control Block CCHADCB) 
Transaction Table (CHATRN) 



► Transaction Table Initialization Routine (C2BTA/CZBSY) - TRIN 

These routines are called by other Text Editor routines to reinitia- 
lize the addition and deletion lists in the Transaction Table. This is 
normally done either when a new data set is to be processed or when a 
set of transactions have been processed by a language processor. CZBTA 
is nonprivilegedj CZBSY is privileged - which eliminates the need for 
the Text Editor to use SVC-type linkage. (See Chart AX.) 

ENTRIES ; 

C2BTA1 - normal entry for CZBTA 
CZBSYl - normal entry for CZBSY 

MODULES CALLED ; 

FREEMAIN Releases pages used for additions and deletions. 

EXITS ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

OPERATION : FREEMAIN is called iteratively to release all but the first 
page of the addition and deletion lists. The Transaction Table contain- 
ing the pointers to the addition and deletion lists is never on the same 
page as the additions and deletions; therefore, its page is never 
released. Upon completion of the routine the list pointers in CHATRN 
are zeroed before control returns to the calling routine. 

ERROR CONDITIONS ; None. 

SYSTEM CONTROL BLOCK USAGE; Transaction Table CCHATRN) 



^ Transaction Table Updater Service Routine (CZASS/C2BSX) - TRUP 

The Transaction Table Updater is entered to add a record to the addi- 
tion list or deletion list. CZASS is nonprivilegedj CZBSX is privileged 
- which eliminates the need for the Text Editor to use SVC-type linkage. 
(See Chart AY.) 
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ENTRIES : 

CZASSl - entry point in CZASS for an addition to the addition list 

CZASS2 - entry point in CZASS for an addition to the deletion list 

CZBSXl - entry point in CZBSX for an addition to the addition list 

CZBSX2 - entry point in CZBSX for an addition to the deletion list 

MODULES CALLED ; 

GETMAIN Obtains a page for the record. 

EXITS ; The routine returns to the calling routine, via the RETURN macro 
instruction. 

OPERATION : The Transaction Table Updater gets the address of the next 
available space (TRNNLK) from the Transaction Table, and determines 
whether the record will fit in the available page. If not, another page 
is acquired with GETMAIN and the table pages are chained. The record is 
moved into the available space and TRNNLK is updated. 

If the record represents an addition or deletion entry, the corres- 
ponding list is updated so that the records in the list are pointed to 
in sequence. Also, a deletion entry causes the addition list to be 
examined and, if a record which is identical to the deletion entry is 
found, it is deleted from the addition list. 

ERROR CONDITIONS ; None, 

SYSTEM CONTROL BLOCK USAGE; Transaction Table CCHATRN) 



^ UPDATE Command Routine CCZASR) 



This routine is entered from the User Controller whenever an UPDATE 
command is encountered- The data set must have been opened prior to 
entry and the DCB address stored in the Transaction Table. The current 
region is updated with input lines read by SYSIN. (See Chart AZ. ) 

ENTRY: CZASRl ~ normal entry 

MODULES CALLED : 

Control Dictionary 
Handler ~ GOV CCZASDX) Gets default value. 

SYSIN CCZASC8) Reads a line. 

LIST (CZASP3) Converts hexadecimal data. 

TRUP CCZASSl) Updates the Transaction Table CCHATRN). 

TRIN CCZBTAl) Initializes the Transaction Table CCHATRN). 

User Controller Dispatches nonprivileged scan routine; can- 

CCZAMZ1,14) eel scan routine previously terminated by an 

attention interruption. 

User Prompter (CZATJl) Issues a diagnostic message to the user. 

EXITS ; UPDATE sets register 1 to zero and exits to the calling routine 
wnen a command or attention interruption is recognized. See "Error Con- 
ditions" for a list of other situations in which exits are taken. 

OPERATION : Upon entry, UPDATE checks to ensure that a language proces- 
sor mode exists, and determines if a previous scan routine has been ter- 
minated by an attention interruption. If such a scan routine exists, 

74 



the User Controller (CZAMZ11) is called to cancel it. UPDATE next 
issues an initial prompt to the user^ requesting line numbers and data* 

The routine then checks for variable-length records. If the records 
are not variable length, they are padded with blanks. UPDATE then 
enters the Source List Handler SYSIN routine CCZASC8) via the SYSIN 
macro instruction to read the line. If no line, line number, or blank 
stop character was supplied, the user is prompted with a diagnostic, and 
UPDATE reads another line from the SYSIN device. If hexadecimal input 
is recognized, UPDATE calls CZASP3 to convert it to EBCDIC 
representation . 

The line is next checked for concatenation characters. If CONREC=Y 
and a concatenation character is detected at the end of the line, CZASL8 
is again entered until concatenation is complete. 

UPDATE checks TRNSCAN to see if a scan routine has been specified. 
If there is a value in TRNSCAN, the routine found there is called via 
CZAMZl with a two-word parameter list. The first word points to the 
input string, preceded by a byte indicating the string length; the 
second word points to a byte in CHBAAA where the scan routine may pass a 
return code. 

If the scan routine indicates that the line is acceptable, UPDATE 
writes the record into the data set with a WRITE-new-key. If a line 
already exists with the key, the line is processed by a WR ITE- replace- 
by-key . If there are no write errors, UPDATE checks the transaction 
processed switch CTRNPRO . If previous transactions have been pro- 
cessed, TRIN is called to reinitialize the Transaction Table and TRUP to 
update it. 

UPDATE then loops back to read another line. No prompt for this line 
is issued. UPDATE exits only when it encounters the break character 
preceding a command as input, or when it recognizes an attention 
interrupt . 

ERROR CONDITIONS ; Under the following conditions the user is issued a 
diagnostic message, the current record is ignored, and UPDATE reads the 
next data line: 

1. No line or line number entered. 

2. No blank stop character separates the line number and the data- 

3. The indicated line number is greater than seven digits. 

4. The specified scan routine indicates that tne data line wac invalid 
and the next data line should be read (return code ^ or 8) . 

Under the following conditions the user is issued a diagnostic message 
and UPDATE exits: 

1. The routine is entered with no language processor active. 

2. An error occurs on a READ or WRITE operation while updating the 
record. 

3. The specified scan routine indicates that the data line was invalid 
and further input should not be accepted (return code null or C) . 

SYSTKI^ CONTROL BLOCK USAGE ; 

Data Control Block (CHADCB) 
Transaction Table (CHATRN) 
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SECTION 4: COMMAND ROUTINES 



This section describes command routines supported by the command sys- 
tem. Each of these routines carries out the actions requested by a com- 
mand, and usually does this by calling upon system service routines in a 
prescribed sequence. Figure 11 lists the names and functions of the 
command routines. This section also describes the four support routines 
that are sometimes employed during command processing. These are: 

• ABEND routine (to handle abnormal task termination) 

• FINDDS routine (to find or create the job file control block for a 
specified data set) 

• FINDJFCB routine (to locate the job file control block associated 
with a specified data definition name) 

• PAIR routine (to assist in abnormal task termination) 

General operation of the command routines is given in the following 
sequence. Typically, the Command Analyzer links to the command routine 
when its corresponding command name appears on SYSIN. The command rou- 
tine then employs the SCAN routines to isolate and validate each operand 
of the command. If diagnostic or prompting messages are needed, the 
routine issues them via the User Prompter. When the operands prove 
acceptable, the command routine carries out the requested actions, often 
by a series of calls to system service modules, such as OPEN or. CLOSE, 
issues (via User Prompter) any response or confirmation messages needed, 
and finally returns control to the Command Analyzer. 

Command routines can be called directly by other command routines or, 
in some cases, via macro instruction usage. The called routine operates 
in the same general way, but returns to its calling routine upon 
completion. 

The PUNCH, RT, WT, and PRINT commands are an important exception to 
the usual pattern. When the Command Analyzer encounters one of these 
commands, it calls the BULKIO preprocessor. The preprocessor then vali- 
dates the command operands and, if they are acceptable, sends a request 
for task initiation to the batch monitor. Acting upon this request. 



^, , ^ 

Symbolic 
Name 



Routine Name 



Purpose 



ABEND 
BACK 

CDD 

CANCEL 

CATALOG 



CZACP 
CZABC 

CZAFS 

CZABJ 

CZAEI 



To terminate an abnormal task. 

To switch a conversational task to noncon- 
versational mode. 

To execute one or more pre stored DDEF 
commands . 

To terminate a specified nonconversational 
task. 

To create or to update the catalog entry 
for a data set. 



Figure 11. Command routines (part 1 of 3) 
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j Routine Name 
1 CDS 1 


Symbolic 
Name 

h i 

CZAFV 1 


Purpose 

To make a copy of a specified data set. 


1 CHGPASS 1 


CZATI ! 


To change password. 


1 CONVERT 


CZCQV 1 


To convert VAM 1 formatted volumes to VAM 

2 format. 


1 DATA 


CZADF 


To build a VISAM or VSAM data set. 


1 DSS7/PC? 


CZAEL 


To present status information about one or 
more data sets. 


1 DDEF 


CZAEA 


To define a data set and describe its 
characteristics to the system. 


1 ERASE/DELETE 


I CZAEJ 


To erase a data set on public storage and 
to delete the catalog entry for a data 
set. 


1 EW 


1 CZCFB 


To catalog VAM data sets which reside on 
private volumes and were produced on one 
system to allow their use on another 
system. 


1 EXECUTE 


CZABB 1 


To initiate a nonconversational task. 


1 FINDDS 


CZAEC 1 


To search the task data definition table 
for a job file control block. 


1 FINDJFCB 


i CZAEB 


To locate the job file control block for a 
given data definition name. 


1 FLOW 


CZAGD 


To regulate the number of different task 
types. 


1 IF String 
1 Comparison 


1 CZBLT 


To provide fast substitute for PCS proces- 
sing of the IF verb when EBCDIC strings 
1 are being compared. 


1 JOIN 


1 CZAFK 


1 To grant a user access to the time sharing 
system. 


1 KEYWORD 


CZATH 


To display keywords or command parameters 
i in user's SYSLIB and USERLIB. 


1 

1 LINE? 


1 CZAEM 


1 To present one or more lines from a speci- 
fied data set. 


1 LOGOFF 


1 CZAFN 


To log a task off the system. 


1 LOGON 


1 CZAFM 


To begin a task logon. 


1 LOGON2 


1 CZBTB 


To complete a task logon. 


1 MCAST/MCASTAB 


CZATU 


To make changes in the profile character, 
1 switch table, and translation table. 


1 MODIFY 


1 CZAEG 

1 


1 To alter, delete, and insert lines in a 
VISAM data set. 



i, 



Figure 11. Command routines (part 2 of 3) 
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Routine Name 
.-^ ^ 

MSGWR 



PAIR 



PERMIT 



POD? 



PROCDEF 

Procedure 

Expander 

QUIT 



RET 

RPS/CW 
RELEASE 

SECURE 

SHARE 

SYN/DEF 

SYSXPAT 

TIME 

UPDTUSER 

USAGE 

User Control 

VAM TAPE 
VSS 



Symbolic 
Name 



CZAAD 
CZACS 

CZAFH 

CZCOX 

CZATP 
CZATE 

CZAFL 

CZAEN 

CZAXX 
CZAFJ 

CZAFU 

CZAFI 

CZATR 

CZATF 

CZAVB 

CZAGC 

CZAGB 

CZAMZ 

CZAET 
CZAVR 



i" 



Purpose 



To issue system messages and fetch system 
responses. 

To add and to remove addresses of inter- 
lock release routines in the ABEND Inter- 
lock Release CAIR) table. 

To indicate that sharing of a data set or 
catalog level is permitted to other users. 

To print the member names of individual 
members of a cataloged VPAM data set. 

To maintain the procedure library. 

To expand a proce<^tore name in the 
source list. 

To deny a user access to the time sharing 
system. 

To modify the mode field in the DSD and 
the equivalent JFCB field. 

To recreate public storage. 

To destroy the job file cx>ntrol block Cs) 
for one or more data sets defined during 
the current task. 

To secure all devices needed for the 
execution of a nonconversational task. 

To allow a user to share a data set or 
catalog level. 

To enter or to delete synonym or default 
values in the combined dictionary. 

To pass parameters in their original tex- 
tual form. 

To specify a time interval for task 
completion. 

To initialize the counts of data sets for 
the system and for each user. 

To display us«r accounting information on 
SYSOUT. 

To preserve comaiand system interfaces with 
nonprivileged programs. 

To process VAM data sets. 

To determine if user may use the Virtual 
Support System (VSS) . 



Figure 11. Command routines (part 3 of 3) 



78 



the batch monitor will initiate the PUNCH, PRINT, WT, or RT coHimand roti- 
tine as a new nonconversational task, independent from the task that 
originally issued the command. In this way PUNCH, RT, WT, and PRINT 
functions — which depend upon the availability of input/output devices 
— can be performed at the system's convenience, and the user's task 
does not have to wait. A full description of nonconversational opera- 
tions and the PUNCH, PRINT, WT, RT, ASNBD, FORCE, HOLD/DROP, MSG/BCST, 
REPLY, SHUTDOWN, and XWTO routines is contained in the Operator Task and 
Bulk I/O PLM , GY28-20«I7. 

fc^ ABEND iCZhCP, CZACQ, and CZACR) 

The abnormal task termination (ABEND) procedure terminates a logical 
task sequence at the point the error was detected. CSee chart BA.) 



ENTRIES: 



CZACPl 
(for ABEND routine I-CZACP) 

CZACP2 

CZACP3 

CZACQl 
(for ABEND routine II-CZACQ) 

CZACRl 
(for ABEND routine III-CZACR) 



CZACR2 
(for ABEND routine III-CZACR) 



normal entry point, generated by ABEND 
macro instruction 

entered for ABENDREG to print diagnost- 
ic message 
entered on VDMEP call 

main entry point. This module is only 

entered from CZACP 

entry point used only by a QLE which 
was queued by the external interrupt 
processor as a result of the VSEND 
executed by CZACQ of the original task 

parameter list containing address of 
MCB, used by CZACP 



MODULES CALLED ; The major ABEND routine, CZACP, is heavily dependent on 
supervisor and access methods routines to fulfill its function. These 
are the supervisor routines it calls: 



PURGE CCEAALP) 
XTRACT CCEAH03) 

LVPSW CCEAHQP2) 
TSEND CCEAHIS) 

RESET CCEAAHR) 



Removes any I/O requests made by the task. 

Extracts the taskid, conversational flag, and 
I/O pending flag from the TSI. 

Loads the VPSW and unmasks any interrupts. 

Ends the task's time slice until the task's 
pending I/O requests are removed. 

Resets devices in the task's symbolic device 
list which were disabled during PURGE. 



These are the access methods routines called by CZACP: 



VAM ABIR CCZCQQl) 
STOW (CZCOKl) 
INTLK CCZCOHl) 



Releases interlocks set by VAM routines. ABIR= 
ABEND Interlock Release. 

Modifies SYSCAT member in the POD to reset the 
lock. 

Locks RESTBL while ABEND is using it. 
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RLINTUC (CZCOIl) 



Unlocks RESTBL. Note: INTLK and RLINTLK set 
and release, respectively, a read or write 
interlock on a shared data set entry. 



FREEQ CCZCTC6> 
DELVAM CCZCFTl) 

CLOSE COMMON (CZCLB) 

DUPCLOSE CCZCEZl) 



Logically disconnects any multiple terminals for 
MTT tasks. 

Deletes a VAM data set (marks all its DSCB and 
data page entries "available* in the page assig- 
nment table. > 

Logically disconnects the data set from the pro- 
blem program, closes the DCB and relinquishes 
main storage. 

Closes a duplexed data set. 



Other modules outside the command system also called by ABEND CCZACP) 
are: 



DISCONNECT CCZHNEB) 
RELEAS CCZCADl) 
Loader CCZCDLIS) 
Loader Logoff CCZCCD) 
Scratch CCZCESl) 
ITI 
PTI 
SRCHAUL 



Disconnects VSS from the task. 

Releases any private devices. 

Determines the program that called ABEND. 

Unlinks the task from the shared data set table. 

Cleans up the DSCB. 

Inhibits task interrupts. 

Allows task interrupts. 

Searches the Active User List. 



(ABEND also uses READ, WRITE, WTL, WTO, and VSEND.) This ABEND 
module (CZACP) also calls modules within the command system: 

Control Dictionary Handlers 

GDV (CZASDX) Gets the default value for DIAGREG. 



GATE (CZATCl) 
(CZATCB) 



Clears buffer. 

Writes the standard ABEND message. 



User Control (CZAMZ7> Processes a call to clean up nonprivileged QLEs. 

User Prompter (CZATJ2) Find ABEND message in SYSMLF. 

The second ABEND routine, CZACQ, also calls routines both within and 
without the command system. The routines within the command syst^n are: 



ERASE/DELETE (CZAEJ6) 
EXECUTE (CZABB3> 



Erases the SYSOUT data set. 

Prints SYSOUT with an erase option for a noncon- 
versational task. 



GATE (CZATC) Uses GATWR to send ABEND message. 

CZACQ calls some modules outside the command system: 
CAT FLUSH (CZCFXl) Flushes the system catalog (SYSCAT). 
CLOSE COMMON (CZCLB) Closes SYSCAT, SYSLIB, Active User List. 
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TSEND CCEAH19) Ends the task's time slice until the task's 

pending I/O requests are removed. 

Viy4 ABIR CCZCQQl) Releases interlocks set by VAM routines. 

(CZACQ also uses WTL, aTCS, EBCDTIME, and DLTSI macros.) The third 
ABEND module, CZAAQR only makes calls within the command system -- to 
log on a new task: 

Initial Attention To begin logging on a new task. 

Interrupt Processor 

CCZAHBl) 

LOGON (CZATD2> To complete logging on a new task. 

EXITS ; ABEND routine I CCZACP) normally returns to the task monitor 
after processing a completion code 1 condition for conversational tasks 
or nonconversational tasks for which a TSKABEND data set has been supp- 
lied. The routine exits to LOGOFF after processing a completion code 1 
condition for a nonconversational task for which no TSKABEND data set 
has been supplied or if the task being ended abnormally is an Express 
Batch task. If a minor system error occurs during CZACP processing, 
ABEND is reinvoked. 

ABEND routine II (CZACQ) normally exits to DLTSI to delete the task 
in which a completion code 2, 3, or *♦ error condition occurred. If a 
major system error occurs during CZACQ processing, CZACP exits to the 
system error recovery routine (SERR) . 

ABEND routine III (CZACR) exits to the task monitor, via the RETURN 
macro instruction, after creating a new task for a conversational task 
in which a completion code 2 condition occurred. If a VSEND cannot be 

sent to the old task or if the VSEND reply from th€ old task is not 
received, ABEND is reinvoked. 

OPERATION ; The ABEND procedure processes four types of error condi- 
tions, completion code 1 (referred to as the ABEND condition), comple- 
tion code 2 (referred to as the ABORT condition), completion code 3, and 
completion code 4 (terminal held condition) . Conditions specified by 
codes 1 and 2 will terminate the logical task sequence at the point the 
error was detected and return control to the user. In a completion code 
1 (ABEND) condition, control is returned to the user with the virtual 
storage as it was when the error occurred. The user can then determine 
the cause of the error and direct the task termination. In a completion 
code 2 (ABORT) condition, control is returned to the user with a com- 
pletely new virtual storage. In a completion code 3 or i* condition, the 
user does not receive control again. His virtual storage is destroyed 
and he is disconnected from the system. 

The ABEND procedure consists of three routines. Routine I performs 
the initial processing of completion code 2, 3, and 4 conditions and the 
complete processing of completion code 1 conditions. Completion code 2 
conditions require further processing by routine II for nonconversation- 
al tasks, and by routine II and routine III for conversational tasks. 

Routine I determines whether the task being abnormally terminated has 
a special purpose ABEND routine; if so, ABEND links to it via a call to 
the User Control routine; if not, ABEND processing continues. A CHANGE 
macro is issued to move the task to Schedule Table Level 21. 

For completion code 1 conditions, routine I will set off any mask 
bits set on in the VPSW, terminate the task's I/O, release the system 
interlocks set by the task, issue an error message and, in the case of a 
conversational task, return control to the user. For nonconversational 
tasks, but not for an Express Batch task, routine 1 will look for a new 
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SYSIN data set with a ddname TSKABEND. If the user has indicated a data 
set TSKABEND, this data set replaces the SYSIN data set and becomes the 
new SYSIN data set. 

The task is then reinitialized, A WTO is issued to document the 
ABEND. If the user has not specified a TSKABEND data set, LOGOFF is 
called to terminate the task. If the task is an Express Batch task, a 
GET is issued to flush the SYSIN data set to the next LOGON card. If an 
error occurs during routine I processing of a completion code 1 condi^ 
tion, the ABEND procedure will be reinvoked and will process the error 
as a completion code 2 condition. 

For completion code 2 conditions, routine I will unmask any masks set 
in the VPSW, terminate the task's I/O, and release the system interlocks 
set by the task- When the completion code 2 occurs in a nonconversa- 
tional task or in a task that is not logged on, ABEND writes the error 
messages on SYSOUT. 

The data sets are closed, data sets to be deleted at LOGOFF are 
deleted, private devices are released, and the user table is updated. 
Routine I then calls routine II to continue processing the completion 
code 2 condition. The task's shared modules are unlinked from the 
shared data set table. In the case of a nonconversational task, a mes- 
sage is sent to inform the batch monitor of the task's impending dele- 
tion. Routine II terminates the nonconversational task, or any task 
that is not logged on, by removing any I/O requests made by the task and 
deleting the task's symbolic device list. A WTL is issued to document 
the ABEND. Routine II then deletes the task from the system. 

For conversational tasks, routine II creates a new virtual storage 
and collects information needed to activate a new task and sends this 
information to the new task. 

Routine III in the new task set^s the field used by the ABEND proce- 
dure to indicate the task is being created by ABEND and logs on the new 
task, using the information sent from routine II. The new task then 
issues the error messages, and routine III returns to the task monitor, 
which returns control to the user. 

For completion code 3 situations, the task is deleted in the same way 
as for completion code 2 situations, except that routine III is never 
invoked to initiate a new task. 

CZACP2 issues a GATWR for the module locations and registers asso- 
ciated with the last occurrence of ABEND, if any. 

ERROR CONDITIONS : The routine may issue these system errors: 

SYSER Code Significance 

050506701 MO/BM ABEND in pre-logon state. 

050506702 MO/BM ABEND in post-logoff state. 

050506703 ABEND unable to CHANGE task to Level 21. 

050506704 STOW of SYSCAT member failed. Member interlock might be 
left on. 

050506705 QLE failed before comp 1 exits. 

050506706 TSICIO count not zero after 96 TSENDs. 

050506707 ABEND in new task before SETAE completed. 

050506708 DCB header not released after CLOSE. 

050506709 ABEND called recursively in LOADER LOGOFF. 

050506710 Used for system debugging stops. 

050506711 VSS disconnect failed. 

050506731 VSEND to BM for nonconversational tasks failed. 

050506732 Close of SYSCAT data set failed. 

050506733 Close of SYSLIB (SYSMLF) data set failed. 
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050506734 VAM interlocks release CCZCQQ2) failed- 

050506736 PURGE I/O failed. 

050506737 VSEND of 1 of 1 MCB to new task failed. 

050506738 VSEND of 2 of 2 MCB to new task failed. 

050506739 Reply not received from the new task in 255 TSEND. 
0505067^10 ABEND during scanning of SDAT. 

050506741 SDAT entry lock not reset after 255 TSENDs. 

050506742 SCRTSI failed. 

050506743 ¥SEND of 1 of 2 MCB to new task failed. 

050506744 SETAE to shift SYSIN device for new -ask failed. 

050506745 Other error conditions during creation of new task. 

050506746 VSEND of reply to the new task failed. 

050506747 Close of SYSSVCT (CZCFX5) failed. 

050506748 ABEND unable to RELEAS a private data set. 
05050674 9 CLOSE of USERLIB (SYSMLF) failed. 

Note: All SYSERs have minor severity. 



SYSTEM CONTROL BLOCK USAGE S 

ABEND Interrupt Release Table CCHAAIR) 

Active User Limits Table (CHAAUL) 

Data Control Block CCHADCB) 

Data Control Block Header (CHADHD) 

Data Event Block CCHADEB) 

Data Event Control Block (CHADEC) 

Interrupt Storage Area CCHAISA) 

Interrupt Table CCHAITB) 

Message Control Block (CHAMCB) 

Message Event Control Block (CHAMEB) 

New Task Common (CHANTC) 

Relative External Storage Correspondence Table CCHARHD) 

Shared Data Set Member Entry CCHASDM) 

Shared Data Set Table (CHASDS) 

Symbolic Device Allocation Table (CHASDA) 

System Activity and Resources Table CCHASAR) 

System Common (CHASCM) 

Task Accounting and Statistical Data CCHAACT) 

Task Common CCHATCM) 

Task Data Definition Table CCHATDT) 

Task Dictionary Table CCHATDY) 

Task Status Index (CHATS I) 

Terminal Control Table (CHATCT) 

User Table CCHAUSE) 



►BACK Command Routine CCZABC) 



This routine switches a conversational task to the nonconversational 
mode. BACK operates in conversational mode only. (See Chart BB. ) 

ENTRY ; CZABCl - normal entry 

MODULES CALLED ; 

User Prompter CCZATJl) Issues error messages to the user- 

FINDDS CCZAECl) Determines that a SYSIN data set exists and 

that JFCB for it has been built. 

GATEOPEN CCZBTBA) Opens nonconversational SYSOUT. 

BACK also executes the following macro instructions: 
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RCR 1. Updates the User Table entry. 

2. Gets ration. 

3, Vacates task if no task space exists. 

VSENDR Sends requests for nonconversational tasks to 

the batch monitor CCZi^BA) . 

USELOCK Unlocks User Table entry. 

ESETL Unlocks SYSUSE data set. 

XTRACT Accesses the TSI field containing the 

conversational/nonconversationa 1 indicator. 

SETUP 1. Sets nonconversational indicator in TSI. 

2. Puts the symbolic device address of noncon- 
versational SYSIN in TSI. 

3. Puts the batch sequence number in the TSI. 

OPEN Opens nonconversational SYSIN. 

SCHED Updates the schedule table index in the TSI to 

third level task. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION ; This routine first validates the environment in which the 
BACK command was issued — VSS cannot be connected and the task must be 
conversational. The user roust also have entered a valid dsnaroe with the 
BACK command. If all is in order, the BACK processor calls FINDDS to 
determine whether a data set for the given dsname exists. Also, if the 
data set has not been defined during the current task, FINDDS creates a 
job file control block CJFCB) for it, provided the SYSIN data set name 
has been cataloged. A number of invalid conditions can result from the 
FINDDS operation — see Error Conditions for elaboration. 

On return, with RC=0, the BACK processor sends the request (via 
VSENDR) to the batch monitor to determine whether the system can accept 
a new background task at this time. The batch monitor will return a 
batch sequence number if a new task is acceptable, and BACK will then 
issue that number to the user, confirming the acceptance. 

The remaining operations switch the task's mode. The conversational 
terminal is disconnected via the ATCS macro CSVC 219). The user's entry 
in the User Table is then updated to show that he no longer has an 
active conversational task, and the mode indicator in the Task Status 
Index (TSI) is reset accordingly. The new SYSIN and SYSOUT are set up 
for use, and opened. Finally, the routine issues a SCHED SVC, changing 
the task's schedule table index to reflect its new mode. Execution of 
the nonconversational task will then occur at the system's convenience. 

ERROR CONDITIONS ; The BACK Processor issues a diagnostic message to the 
user and returns to its calling routine if it determines that : 

1. VSS is connected to the requesting task. 

2. The requesting task is not conversational. 

3. The user defaulted the data set name in the BACK command. 

4. The data set name supplied has invalid length. 
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5. FINDDS indicates CRC=8) that the dsname is for some reason invalid 
— for instance, it could not find the dsnaroe in the catalog. 

6. FINDDS indicates (RC=16) that the data set name cannot be 
retrieved. 

7. The batch monitor indicates that no task space exists, or that 
shutdown is in progress. 

Certain conditions cause the BACK processor to issue the following sys- 
tem error: 

SYSLK Code Severity ABEND Message Significance 

050202700 Minor INVALID RETURN CODE BACK received an 

FROM A CALLED ROUTINE invalid return code 

from a called module. 

Conditions which can cause this error are: 

1. Invalid return code from either FINDDS or the batch monitor. 

2. FINDDS indicates CRC=4) that no JFCB was found in TDT and that 
there was no request to create onej or indicates (RC=10) that no 
JFCB in TDT and unable to build one — for instance, because space 
unavailable. 



SYSTEM CONTROL BLOCK USAGE ; 

Task Common CCriATCM) 

Data Control Block (CHADCB) 

User Table CCHAUSE) 

New Task Common CCHANTC) 

Task status Index (CHATSI) 

Task Data Definition Table (CHATDT) 



^ Batch Work Queue CBWQ) EXHIBIT Processor (CZAYF) 



The EXHIBIT Director (CZAYD) calls CZAYF to process requests for an 
informational display of the Batch Work Queue, when the BWQ option is 
specified in the EXHIBIT command. Various types of displays may be 
requested, which may result in a display of all entries or of a smaller 
subset of entries. (For example: only print requests may be called 
for.) (See Chart BC. ) 

ENTRIES ; 

CZAYFl - normal entry 

CZAYF2 - entry from ABEND processing 

MODULES CALLED : None. 

EXITS ; CZAYF returns to its calling routine. 

OPERATION ; All information required for this display operation is 
available in the individual BWQ entries. If the task requesting a dis- 
play of the batch work queue is not the operator task, only the request- 
ing task's DCB for the Batch Work Queue is opened. The operator tasks 
is presented with the status of all jobs on the Batch Work Queue. CZAYF 
initializes the Batch Work Queue and determines whether the type speci- 
fied is BSN. 
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If not, CZAYF obtains each BWQ entry in turn, releases the lock 
bytes, determines whether it is the type requested, and, if so, moves 
the entry into the work area provided by CZAYD. On end of data, if no 
entries have been found, a message to that effect is moved into the work 
area. 

If the type specified is BSN, CZAYF reads on the BSN key, moving 
either the synad message or a 'no entry found' message into the work 
area. 

In either case, after the entries have been examined, CZAYF TCLOSEs 
the BWQ for the operator task, and begins to write headers on the SYSOUT 
device. All write operations are directed to GATE. When the last head- 
er has been written, CZAYF converts and formats its BWQ data, line by 
line, and writes each line to SYSOUT via GATWR. When these entries are 
exhausted, CZAYF returns to its calling routine. 

ERROR CONDITIONS ; If, for a non-operator task, the BWQ could not be 
accessea, a diagnostic message is directed to GATE- 

SYSTEM CONTROL BLOCK USAGE ; Batch Work Queue. 

^ CANCEL Command Routine (CZABJ) 

This routine sends a message to the batch monitor to cancel a speci- 
fied nonconversational task. CANCEL operates in conversational mode 
only. (See Chart BD. ) 

ENTRY: CZABJl - normal entry 

MODULES CALLED : 

NEXTPAR CCZAACl) Gets and checks batch sequence number - 

NUMSTG CCZAAC4) Validates batch sequence number. 

MSGWR CCZAAD2) Issues messages to user. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION: The routine gets and checks the batch sequence number, which 
is provided as the command's operand, using the SCAN routines NEXTPAR 
and NUMSTG. CANCEL then builds a request message, including the user's 
identification and privilege class as well as the batch sequence numljer, 
and sends it to the batch monitor, via CALL if executed in tne operator 
task or VSEND if requested by a user. 

When the batch monitor receives the message, it will cancel the spe- 
cified task if it is currently being executed or is awaiting execution, 
and if the user is privileged to cancel that task- Until the batch mon- 
itor responds, an AWAIT puts the CANCEL task in wait status. Upon 
receiving the batch monitor's response, CANCEL issues an appropriate 
message to the user, and returns to the calling routine. 

ERROR CONDITIONS ; The CANCEL processor checks the validity of the pa- 
rameter format and the BSN entered with the CANCEL command. If either 
is in error the user is prompted and allowed to try again. An attention 
will interrupt this prompting. 

After the call to the batch monitor, if the CANCEL routine discovers 
that the batch sequence number is either completed or nonexistent, or 
that the user is not privileged to cancel the task, it issues an error 
message before exiting. For the message IDs and exact text of the mes- 
sages issued, see System Messages . 
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The routine may issue these system errors: 

SYSER Code Severity ABEND Message 

050203^*01 Minor INVALID RETURN CODE 

FROM A CALLED 
ROUTINE. 

050203^*02 Minor MESSAGE TO BATCH 

MONITOR COULD NOT 
BE COMPLETED. 

050203403 Minor INVALID RETURN CODE 

FROM A CALLED 
ROUTINE. 



Significance 

Iniialid return code 
received from called 
module. 

VSEND to batch moni- 
tor was not com- 
pleted. 

Invalid response 
received from batch 
monitor. 



SYSTEM CONTROL BLOCK USAGE ; 

Task Common CCHATCM) 

Message Control Block (CHAMCB) 

Message Event Control Block (CHAMEB) 



^ CATALOG Command Routine (CZAEI) 



This routine makes a permanent record of a non-VAM data set in a 
user's catalog, updates an existing non-VAM entry in the catalog, 
creates an index level in the catalog for a generation data group, or 
catalogs a data set as a new generation of a generation data group. For 
VAM data sets, it is used only to change the data set name in the cata- 
log and on direct access volumes. (See Chart BE.) 

ENTRIES: 

CZAEIl - command entry 

CZAEI2 - macro instruction entry 

CZAEI3 - special macro instruction entry for batch monitor 

CZAEI 11 - BPKD 

MODULES CALLED: 



SCAN Routines: 

NEXTPAR (CZAACl) 



CHEKDS (CZAAC2) 
CHKNUM CCZAAC5) 
MSGWR (CZAAD2) 
FINDDS (CZAECl) 
DELCAT (CZCFD) 

RENAME (CZCFZ) 
ADDCAT (CZCFA) 
LOCATE CCZCFL) 

GETMAIN (CZCGA2) 



Locates delimiters of input string and scan for 
invalid characters. 

Validates data set name. 

Validates generation number. 

Issues system messages. 

Locates or creates JFCB for specified data sets. 

Changes data set name in catalog entry, or deletes 
the old name from the catalog. 

Changes data set name on direct access volume. 

Creates or updates fields within the catalog - 

Creates index level in catalog for generation data 
group. 

Obtains additional virtual storage. 
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FREEMAIN (CZCGA3> 
INDEX CCZCFIl) 
FiTREQ CCZCAAl) 
SETXP (CEAH7) 
PGOUT (CZAAl) 
i^BEND CCZACPl) 



Releases virtual storage. 

Creates generation data group • 

Mounts data set voliime. 

Makes a DSCB page available for processing. 

Writes out DSCB, 

Aborts the task for abnormal conditions. 



EXITS ; The routine noimally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION ; The command operands are validated using the SCAN routines. 

If the new data set name has a relative generation number appended, 
indicating that it is a generation of a generation data group, LOCATE is 
called to obtain the absolute form of the generation number. Then the 
job file control block CJFCB) for the current data set name operand is 
located, and checked to ensure that the state of the data set (cataloged 
or not cataloged) as specified by the operand agrees with the state 
shown in the JFCB. 

A non-VAM data set name is cataloged or the catalog data set descrip- 
tor (DSD) for a non-VAM data set is updated by calling the ADDCAT rou- 
tine. Upon successful return from ADDCAT, control is returned to the 
calling routine. Any attempt to catalog or update the DSD of an exist- 
ing catalog entry for a VAM data set or to rename a VAM data set which 
has no catalog entry is rejected by the CATAJjOG Command Routine. 

If new and current data set names are entered as operands for: 

• Non-VAM data sets and the current name is not cataloged , RENAME is 
called to replace the current name with the new name in the DSCB 
before a catalog entry is created and control is returned to the 
calling routine. 

• Non-VAM data sets and the current name is cataloged , DELCAT is 
called to replace the current name with the new name in the catalog 
DSD. If the current data set also resides on a direct access 
volume, RENAME is called to replace the current name with a new name 
in the DSCB. Then ADDCAT is called to update fields in the catalog 
and control is returned to the calling routine. 

• ^^^ data sets and the current name is cataloged , DELCAT is called to 
replace the current name with the new name in the catalog DSD. Then 
SETXP is called to make a Format-E DSCB available for processing. 
After changing the DSNAME in the DSCB, PC30UT is called to write out 
the Format-E DSCB and control is returned to the calling routine. 

• VAM data sets and the new name is a generation data set name , ADDCAT 
is called to catalog the new name. The current name is replaced 
with the new name on the DSCB and DELCAT is called to delete the 
current name from the catalog. 

If a catalog index is reguested for a generation data group, a param- 
eter list is created for INDEX. Upon successful return from INDEX, con- 
trol is returned to the calling routine. 

ERROR CONDITIONS ; If entry was by macro instruction, a hexadecimal code 
is returned in the fourth byte of general register 15: 
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Code Significance 

00 Cataloging done as requested, 

04 Name cannot be changed since new dsname not unique. 

08 Input string error, no cataloging done. 

OC No cataloging for other reason. 

10 Data set name already in catalog. 

Ill No volume of data set mounted, cannot catalog. 

20 VAM data set not GDG or RENAME option. 

2t| Open DCB. 

The routine checks for acceptable operands and notifies the user, 
through user prompter, of any errors found. For the messages issued, 
see System Messages . 



The routine may issue these system errors: 

SYSER Code Severity ABEND Message 

05050 3302 Minor SYSTEM ERROR, INVALID 

RETURN FROM MSGWR. 



Significance 

Invalid return 
code from MSGWR, 



5050 330a Minor SYSTEM ERROR, INVALID 

RETURN FROM NEXTPAR. 



Invalid return 
code from NEXTPAR. 



050503306 Minor SYSTEM ERROR, INVALID 

RETURN FROM CHEKDS. 



Invalid return 
code from CHEKDS. 



050503308 Minor SYSTEM ERROR, INVALID 

RETURN FROM CHKNUM. 



Invalid return 
code from CHKNUM. 



050503310 Minor SYSTEM ERROR, INVALID 

RETURN FROM FINDDS. 



Invalid return 
code from FINDDS, 



5050 331£* Minor SYSTEM ERROR, INVALID 

RETURN FROM DELCAT. 



Invalid return 
code from DELCAT, 



05050 3316 Minor SYSTEM ERROR, INVALID 

RETURN FROM RENAME. 

050503318 Minor SYSTEM ERROR, TOO 

MANY VOLUMES OR UN- 
ABLE TO GETMAIN. 



Invalid return 
code from RENAME. 

More than 255 
volumes or unable 
to issue GETMAIN. 



050503320 Minor SYSTEM ERROR, INVALID 

RETURN FROM ADDCAT. 



Invalid return 
code from ADDCAT. 



050503322 Minor SYSTEM ERROR, UNABLE 

TO COMPLETE COMMAND 
OR BACKOUT. 



ADDCAT unsuccess- 
ful but indicator 
shows that suc- 
cessful change of 
data set name has 
occurred in cata- 
log or DSCB 
through DELCAT or 
RENAME. 
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050503324 Minor SYSTEM ERROR, INVALID 

RESULTS FROM INDEX. 

050503326 Minor SYSTEM ERROR, INVALID 

RETURN FROM LOCATE, 



Invalid return 
code from INDEX. 

Invalid return 
code from LOCATE. 



SYSTEM CONTROL BLOCK USAGE ; 

Task Coromon CCHATCM) 
Catalog SBLOCK CCHACCC) 
Interrupt Storage Area CCHAISA) 
Task Data Definition Table (CHATDT) 
Symbolic Device Allocation Table (CHASDA) 



^ CDD Command Routine (CZAFS) 



This routine retrieves one or more DDEF commands for execution , 
obtaining them from a line data set that contains prestored DDEF com- 
mands. (See Chart BF.) 

ENTRIES ; 

CZAFSl - normal entry 

CZAFS 2 - macro instruction entry 

MODULES CALLED; 



SCAN Routines: 

NEXTPAR (CZAACl) 

ALFNUM CCZAAC3) 

CHEKDS (CZAAC2) 

MSGWR CCZAAD2) 



FINDDS CCZAECl) 

Command Analyzer 
(CZASAl) 

GETMAIN CCZCGA2) 

FREEMAIN CCZCGA3) 



Gets command operand. 

Validates ddname. 

Validates data set name. 

Issue messages to user and fetch his replies. 
Also, lists the ddnames processed at the end of 
operation. 

Finds or creates JFCB for prestored data set. 

Executes DDEF command via OBEY string. 

Reserves virtual storage for stack of ddnames. 
Releases virtual storage reserved for ddnames. 



EXITS : The routine returns to its calling routine, via the RETURN macro 
instruction. 

OPERATION ; If the command operand field does not include ddnames (data 
definition names) , the CD routine will fetch all DDEF commands in the 
prestored data set, and present them, one by one, to the DDEF command 
routine for execution. In doing this, the CDD routine first validates 
the name of the prestored data set (using SCAN routines for this), gets 
the job file control block for that data set (using the FINDDS routine) , 
then opens the data set and reads it, record by record. Each record 
containing a proper command verb is passed to the Command Analyzer for 
processing as an OBEY string. First, however, the CDD routine adjusts 
the record to take into account the record length, line number, and con- 
tinuation lines. The routine will continue setting up records and pas- 
sing them to the Command Analyzer until the prestored data set is 
exhausted. At that point, control returns to the calling routine. 
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When one or more ddnames are supplied as operands, the routine vali- 
dates and then stacks them in temporary storage. Next, it scans sequen- 
tially through the prestored data set, looking for a match on a ddnaroe 
with any that had been stacked. As each match is found, the prestored 
DDEF command is readied and passed to the Command Analyzer for execu- 
tion. After the last of the requested ddnames has been executed (or 
when end of data set is encountered) , the routine returns control to its 
calling routine. 

If CDD is entered via a command, the routine accepts attention inter- 
rupts by immediately closing the prestored data set, setting a return 
code and returning control to the calling routine. If all the ddnames 
have not been processed, CDD releases the reserved storage through FREE- 
MAIN, before returning to its caller. 

ERROR CONDITIONS : If entry was by a macro instruction, a hexadecimal 
code will be returned in register 15: 

Code Significance 

00 No error detected 

04 Invalid data set name 

08 Invalid data definition name 

OC Data definition name not in prestored data set 

10 Error return received from DDEF (via Command Analyzer) 

14 Not a line data set 

18 Attention interrupt handled 

The routine checks for acceptable operands and notifies the user, 
through user prompter of any errors found. For the messages issued, see 
command description given in System Messages . 

The routine may issue these system errors. In each case the severity 
is minor, and the ABEND message is SYSTEM ERROR, TASK TERMINATED. 

SYSER Code significance 

5050 6801 Invalid NEXTPAR return code 

050506802 Invalid NEXTPAR delimiters 

050506803 Invalid MSGWR return code 

050506804 Invalid ALFNUM return code 
50506805 Invalid FINDDS return code 
050506806 Invalid CHEKDS return code 

SYSTEM CONTROL BLOCK USAGE : 

Task Common (CHATCM) 

Data Control Block (CHADCB) 

Task Data Definition Table (CHATDT) 

Interrupt Storage Area (CHAISA) 
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CDS Command Routine CCZAFV) 

This routine makes a copy of a data set or member of a partitioned 
data set. It may also copy member Cs) of a partitioned data set (with 
user data and aliases) into a second partitioned data set, replacing 
duplicate members, if so specified. The original data set or member Cs) 
may be erased after duplication. If the original data set or member is 
a line data set, the routine also renumbers the new data set when 
requested. (See Chart BG.) 



ENTRIES: 

CZAFVl - command entry 

CZAFV2 - macro instruction entry 

CZi\FV3 - EODAD entry in reading input data set 

CZAFV4 - SYNAD from input or output data set 

CZAFV5 - EODAD entry from output data set 



MODULES CALLED : 
CHEKDS CCZAAC2P) 
CHKNUM (CZiy\C5) 
PRMPT CCZATJl) 
FINDDS CCZAECl) 
DDEF CCZAEAl) 
FIND (CZCOJl) 
STOW CCZCOKl) 
ERASE (CZAEJ?) 
GETMAIN CCZCGA2) 
FREEMAIN CCZCGA) 



Validates data set name. 

Validates line number and DCB operands. 

Issues system messages to the user. 

Locates or creates a JFCB. 

Defines the data set if no JFCB exists. 

Finds a member of a partitioned data set. 

Updates the POD of a partitioned data set. 

Erases data sets or members. 

Obtains virtual storage work area. 

Frees virtual storage work area. 



EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 

to ABEND. 



OPERATION: 



Upon entry to the macro, the parameter string is obtained. 



flags are set, and an OBEY is done to the command entry. 

If entered as the result of a command, after each data set name is 
validated, a job file control block (JFCB) is obtained or created for 
each Cby FINDDS) . If the output data set JFCB cannot be found or 
created (that is, it is not cataloged), CDS calls DDEF to define the 
data set, with the same organization as the input data set. The remain- 
ing operands are validated and the erase, renumbering, and replace flags 
are set accordingly. 

If the input and output data sets are both VA!4 partitioned and no 
member name has been specified, multiple member processing (copying of 
members with user data and aliases, if they exist) is assumed. 

Otherwise, the input DCB is opened and checked against the output 
JFCB. Both data sets must have the same organization (VAM or SAM). Any 
combination of VAM data sets may be copied. If a VSAM data set is being 
copied to VISAM, the key length, relative key position, and pad must be 
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specified for the output data set. In all other combinations, the out- 
put is given the same DCB parameters as the input. For VSAM format U 
records, a LRECL of one page is used. The output DCB is then opened. 

For SAM data sets, READ and WRITE are used to obtain the input rec- 
ords and place them in the output data set. For VAM data sets, GET and 
PUT are used. If renumbering is specified, the input record is obtained 
and the new key is overlayed on the old key before the record is 
written. 

Tests for attention interrupts are made after c^ach WRITE or PUT. 
Processing ends when the input data set is exhausted or an attention 
interrupt is received. 

If multiple member processing has been indicated, three DCBs are 
opened; one for input, one for VSAW output, and one for VIS AM output. 

If no member names have been specified for the input data set, then 
every member found in the input data set's POD will be copied. other- 
wise, only the members specified will be copied. 

A FIND for a member is done, which fills in the input DCB and obtains 
the user data for the member. The output POD is searched to see if a 
member with the same name exists. Then each alias in the input POD 
which is associated with the member is checked in the output POD. If a 
similar alias is found, it must be associated with the same member name 
in the output POD or processing of the member is ended. 

If no invalid duplicate aliases are found, and the user has not spe- 
cified that duplicate members are to be ignored, the input member is 
copied into the output data set using the appropriate output DCB. 

When the copy is complete, the input member is erased if applicable 
and the output member is added to the output POD with its user data and 
aliases, using STOW. 

Multiple member processing is complete when all specified members 
have been copied. 

When processing is complete, the DCBs are closed and the input data 
set is erased, if specified (not applicable to multiple member proces- 
sing). Control is then returned to the calling routine. 

ERROR CONDITIONS ; If entry was by macro instruction, a hexadecimal code 
will be returned in register 15: 

Code significance 

00 Normal processing completed. 

04 Invalid operands. 

08 Name of original data set not in TDT or catalog. 

OC New data set not cataloged or no ddname specified. 

10 JFCB for original data set not consistent with JFCB for new data 
set. 

11 Memi3er name not given for partitioned data set. 
18 User does not have write access to new data set. 
IC Original data set organization not VAM or SAM- 
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20 Data set not on direct access or tape. 

2^ Member name for new data set already in POD. 

28 Data set copied; old data set not erased because user does not 
have proper access. 

2C Data set copied; new data set not renumbered because it is not 
line data set. 

30 Data set copied and renximbered; old data set not erased because 
user does not have proper access. 

3^1 Data set copied and erased; new data set not renumbered because 
it it is not a line data set. 

3 8 Data set copied; new data set not renumbered and old data set not 
erased. 

3C SYNAD or EODAD exits have occurred. 

The routine checks for acceptable operands and notifies the user, 
through user prompter, of any errors found. For messages issued^ see 
System Messages . 

The routine may issue these system errors. In each case the severity 
is minor and the ABEND message is TASK TERMINATED. DSCOPY INCOMPLETE. 

SYSER Code Explanation 

050508101 An invalid field in a JFCB has been discovered, 

050508102 An illogical return code from STOW or FIND was received. 

SYSTEM CONTROL BLOCK USAGE ; 

Task Common (CHATCM) 

Task Data Definition Table (CHATDT) 

Data Control Block (CHADCB) 

►CHGPASS Command CCZATI) 



This routine allows users to change their passwords by a command. 
This command will be accepted at any time after LOGON and before LOC;OFF . 
(See Chart BH. ) 

ENTRY : CZATIC - normal entry 

MODULES CALLED ; 

GATE (CZATCl) Notifies user (via GATWR macro) to enter his 

new password (if defaulted) and cutrent pass- 
word. Response read through GATRD. 

User Prompter CCZATJl) Notifies the user of error conditions. 

EXITS; This routine returns to its calling routine. 

OPERATION : Upon entry, CHGPASS prompts the user to enter his new pass- 
word in an overtyped field (if it was not already entered as a parameter 
with the command) . Once the new password has been checked for correct 
syntax, CHGPASS prom.pts the user for his current password (again in an 
overtyped field) • If the current password matches the USEPAS field, the 
new password is stored in USEPAS. 
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If the task requesting the change of password is nonconversational, 
CHGPASS uses a GTWAR macro to obtain the new and current passwords. If 
the task is conversational, a GATWR/GATRD combination is used, 

ERROR CONDITIONS : CHGPASS issues an error message via the User Prompter 
and returns to its calling routine if CI) the user enters an invalid 
current password, or C2> the user enters an invalid new password, 

SYSTEM CONTROL BLOCK USAGE ; 

User Table (CriAUSE) 

Task Common CCHATCM) 

Tenrdnal Control Table (CHATCT) 

►CLOSE Command CCZCHB) 



The CLOSE command is specified to allow the us€?r to close his data 
sets from the command level. This function is required when the normal 
path of processing has been interrupted either by the system or by the 
user himself, and precludes this closure at the program level. This 
command may be invoked to close a data set, a group of data sets, or all 
data sets. (See Chart BI.) 

ENTRY ; CZCHBl - command entry point 

MODULES CALLED ; 

CHKDS CCZAAC2P) Validates data set name. 

LOCATE CCZCFLl) Converts relative generation member to absolute. 

STOW CCZCOJ, CZCOH, Deletes data sets, sets and resets inter- 
CZCOII locks on the RESTBL. 

CLOSE CCZCLB) Closes the DCB, 

CLOSEVAM (CZCOB) Eliminates all traces of the DCB adjuncts (header, 

buffers, etc, ) . 

PRMPT (CZBTC) Issues messages to the user. 

EXITS ; Normal exit is made via return macro with a return code of RC=00 

in Register 15. 

OPERATION ; This routine is coded as a BUILTIN, The BPKD included in 
the PSECT provides for three parameters — DSNAME, TYPE, and DDNAME, 

If both DSNAME and DDNAME are specified, only the data set for which 
both names match is closed. If an inconsistency is found, the user is 
informed. 

CHEKDS is called to validate the data set name. The return code from 
CHEKDS is used to determine if a relative generation number or member 
name is included; a member name is ignored. The relative generation 
merooer is converted to absolute via a call to LOCATE; LOCATE is not 
called if DSNAME specifies an IBM System/360 Operating System data set 
name. If the data definition name exceeds eight characters, or the 
return code from CHEKDS is unexpected, or LOCATE fails to convert a 
relative generation number to absolute, the command is cancelled, and 
the user is informed. 

The TDT is located, and the TDT header CTDTJIO) is used to find the 
last JFCB in the chain. The search of JFCBs is determined from the 
DSNAME or DDNAME parameter. If DSNAME is defaulted, all JFCBs in the 
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chain are processed, excluding the JFCBs for system data sets and USER- 
LIB, If DSNAME is specified, the data set name field in the JFCB 
CTDTDSl) is compared against the specified data set name- The length 
CroaxiiniMi of 35) for the comparison is obtained from the byte preceding 
the data set name pointed to by the BPKD. If a match is found, the 
character following the field on which the comparison was made (length + 
1) is examined for a period or a blank if less than 35 characters have 
been compared. If a period is found, the name is partially qualified, 
and the search resumes after the current data set is closed. If a blank 
is found, the name is fully qualified, and processing is complete when 
the data set is closed. 

Special consideration must be made for IBM System/360 Operating Sys- 
tem data set names, which may be 44 characters long. Only JFCBs with 
TDTDS1=C'*' are examined and the name compared with TDTDS2. 

If DDNjyyiE is specified, the data definition name field in the JFCB 
CTDTDDN) is compared against the specified data definition name. The 
number of characters to be compared is determined from the byte preced- 
ing the data definition name pointed to by the BPKD. If the name is 
less than eight characters, the search continues through the JFCBs after 
the current data set is closed. 

If a search of the TDT fails to find the specified data set name or 
data definition name, the command is terminated, and the user is infor- 
med that the data set is not defined in the current task. If the data 
set is found to be a system data set, the command is terminated ^ and the 
user is informed that a system data set may not be closed. 

After the JFCB is located, the open count CTDTODN) is examined; if 
the count is zero, the command is terminated and the user informed that 
the data set is not open. 

If the TyPE=T option is specified for a VAM data set that is speci- 
fied by name and found to be duplexed CTDTDUP=0>, the command is can- 
celled; the user is informed that TYPE=T cannot be specified for a dup- 
lexed data set. 

When the data set has been properly closed, the user is informed. 
The actual close processing of a data set is determined from the data 
set organization (TDTDSV) . 

VAM Organization : If the data set is duplexed CTDTDUP=0) , under 
defaulted names or partially qualified name processing, and the TyPE=T 
option is specified, the JFCB is ignored and the user informed that a 
duplexed data set cannot be closed with TyPE=T option. 

The RESTBL pointer is obtained from the JFCB CTDTDEB) . For a shared 
data set, the RESTBL is locked via CZOOH prior to a search of the DCB 

Headers. The first DCB Header is located from the pointer in the RESTBL 
Header. 

The DCB Headers for a task CTCMTID=DHDTSK) are processed one at a 
time; from the DCB Header, the DCB address (DHDDCB) is obtained. Furth- 
er testing is required prior to the actual call to CLOSE CCZCLB) . 

1. Before processing an individual DCB Header, all DCB Headers for the 
task are counted. This count is used to update, if necessary, the 
DCB open count in the JFCB (TDTOPN) . 

2. For a non-TYPE-T CLOSE, the existence of a valid DCB must be deter- 
mined before the call to CLOSE CCZCLB). This is done via a CKCLS 
macro instruction for the space assigned to the DCB. A code of 
returned in register indicates that the DCB no longer exists. 
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CLOSE¥AM (CZCOB> is called at a new entry point CCZCOB2) to elimin- 
ate all trace of the DCB adjuncts CDCB Header, buffers, etc.). 

When the DCB exists, a check is made for a valid DCBID and the OPEN 
flag set. If the DCBID is not valid or the DCB is not flagged as 
open, CZCOB2 is called to perform the necessary cleanup. 

When the DCB cannot be closed for any of the three reasons above, 
the user is informed that the data set could not be closed because 
the DCB was missing or invalid. 

CZCOB2 is called with a pointer in register 1 to a parameter list 
containing a pointer to the DCB Header to be processed. 

A call to CZC0B2 doesn't preclude the possible normal closure of 
other DCBs opened for the data set; for example, the RESTBL must 
not be released prior to processing of all DCB Headers. 

When the data set is duplexed and CZCOB2 must be called, it is 
called twice to process each DCB in the same manner. If the DCBs 
are the last to be closed for the data set in this manner, the dup- 
lex pointer and indicator in the JFCB CTDTDUP and TDTDCI) must be 
cleared. 

3. For a TYPE=T CLOSE the same checks must be made for an existing DCB 
that is open and contains a valid DCBID. If these conditions are 
not found, the close is not attempted and the user is informed that 
the temporary close was not done because the DCB was missing or 
invalid. 

4. If the JFCB is in the JOBLIB chain, the DCB address is used to 
search the LIBE MAINT DCB chain to determine if the DCB is the JOB- 
LIB DCB. If it is, the header is bypassed and, upon completion of 

processing of the data set, the user is informed that the JOBLIB 
DCB was not closed. 

5. If the data set is duplexed CDHDDUP=0>, the address ot the second 
DCB is obtained from the DCB Header pointed to from DHDDUP and both 
DCBs are passed to DUPCLOSE. 

6. For a CLOSE TYPE=T, the address of the next DCB Header for the task 
must be retained prior to the actual call to CLOSE. This address 
is used to resume processing of the next DCB Header rather than the 
pointer in the RESTBL Header used for non-TYPE=T CLOSE which will 
change as DCBs are closed and DCB Headers are deleted. 

7. When the data set is partitioned and a new member is checked out, a 
STOW Ctype N) must be performed. The name used has the form: 

MYDDDNNN 

where M is the character M to conform to naming conventions, YDDD 
is the current date and NNN are three numeric characters to provide 
uniqueness to the name. 

If STOW passes back a return code indicating a non- unique member 
name, the NNN portion of the name is incremented and STOW is 
recalled. 

After the STOW has been performed, the user is informed that a new 
member (MYDDDNNN) has been stowed for the data set. 

For shared data sets, the lock on the RESTBL must be released by 
CZCOI prior to the call to CLOSE and as soon as the DCB address is 
obtained. 
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SAM Organization : When DDNAME=ddnanie is specified for concatenated data 
sets, all JFCBs with the same ddname are examined and a close performed 
on each for which the DCB open count CTDTOPN) is greater than zero. 

The DEB address in the JFCB (TDTDEB) is used to locate the DEB and 
from that, the DCB CDEBDCB) • This address is passed to CLOSE to perform 
the actual closure of the data set. 

Prior to the call to CLOSE CCZCLB) a check roust be made for an exist- 
ing DCB that is open and contains a valid DCBTD (see "VAM Organization** 
above). If these conditions are not found, the close is not attempted. 
For a non-TYPE=T CLOSE, the user is informed that the close of the data 
set failed because the DCB was missing or invalid. 

ERROR CONDITIONS ; The following messages are issued: 

CZCHBOOl — invalid 

CZCHB002 — data set not defined in this task 

CZCHB003 — data set not open 

CZCHB004 ~- system data set may not be closed 

CZCHB005 -- TYPE=T option invalid for duplexed data set 

CZCHB006 — DSNAME and DDNAME inconsistent 

CZCHB007 — joblib DCB not closed 

CZCHB008 — duplexed data set not closed with Type~T option 

CZCHB009 — close of data set failed; DCB missing or invalid 

CZCHBOIO — new member CMYDDDNNN) stowed for data set 

CZCHBOll — close Type=T not done; DCB missing or invalid 

CZCHB012 — closed 

CZCHB013 — CSECT, Privileged, Public, READONLY, Reentrant 

SYSTEI^ CONTROL BLOCK USAGE ; 

Data Control Block (CHADCB) 

Data Event Control Block (CHADEB) 

DCB Header CCHADED) 

Interrupt Storage Area (CriAISA) 

Member Header CCHAMHD) 
RESTED Header CCHAKHD) 
Task Common (C HATCH) 

Task Definition labie CCriATDT) 

^ DATA Command Routine CCZADF) 

This routine creates either a VISAjyi line data set or a VSAM data set. 
During creation of a line data set, the routine can also be used to 

insert, delete, and replace lines in that data set. (See Chart BJ.) 

ENTRIES ; 

CZADFl - normal entry 
CZADF2 - Sti^AD entry 
CZADF3 ~ EODAD entry 

MODULES CALLED: 



NEXTPAR (CZAACl) 



Locates delimiters of input string and scan for in- 
valid characters. 



CriEKDS (CZAAC2> 
ALFNUM CCZAAC3> 
CHKNUM CCZAAC5) 



Validates data set name. 
Validates member name. 
Validates line number. 
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FINDDS CCZAECl) 

DDEF (CZAEAl) 

FORTRAN Conversion 
(CZAWCl) 

ERASE (CZAEJl) 

KSGWR CCZAAD2) 
SYSIN CCZASC7) 



Locates job file control block CJFCB) • 

Creates JFCB for new data set if needed. 

Converts a record of FORTRAN data set from 
cardboard to keyboard. 

Erases VSAM data set in case of attention 
interrupt. 

Issues system messages. 

Issues number sign and fetch input records. 



EXITS : The routine normally returns to the callin.g routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 



OPERATION ; After validating its input parameters by means of 
routines, DATA checks to see if a job file control block CJFC 

for the data set. If so, the JFCB must show either CI) that 
set is partitioned or C2) it has VSAM or VISAM organization. 
titioned data set, a new member will be created- If there is 
for the data set, the routine generates one by calling DDEF. 
case, the data set name and organization are as specified in 
parameter, and the data definition name is derived from a val 
tained for this purpose in task common. If JFCB already exis 
data set name given, the DSORG value in the JFCB is assumed r 
of the value in the DATA command. 



the SCAN 

B) exists 

the data 
For a par- 
no JFCB 
In that 

the input 

ue main- 

ts, for the 

egardlesG 



The routine now opens the data set, with a provision for both reading 
and writing. For a partitioned data set membc^r, a search is made 
through the partitioned organization directory CPOD) to ensure that, the 
member name is unique. All further processing depends on the type of 
data set to be created, VSAM or VISAM. 



For a VSAM data set, the routine issues a number sign l#) 
each new line, and then puts the line into the new data set - 
~- in this format: 



to invite 
■- or member 



length 

Ca bytes 



) 



card/ key boa rd 
CI byte) 



user text 
(120 bytes) 



The keyboard/card indicator shows the origin of thc^ line as either a 
terminal keyboard (code is 1) or a card reader (code is 0). In a con- 
versational task, SYSIN indicates the origin of each line upon r€?turn to 
DATA (SYSIN is used to fetcn the lines). In a nonconversational task, 
where input lines are prestored in the bYSlN data set, the indicator 
setting is part of the input record itself. The exco^tion to this i^; 
fixed-length lines. The origin of tnor.e lines is <tssui(ie.l to be trie card 
reader, and the keyboard/card indicator is s et accordingly. DATA con- 
tinues creating the VSAM data set Cor member)^ one lint. u. a tinu, until 
it finds an input record whose only significant ctaractcM-i are- %i:. or an 
underscore followed by a command. The %K Cor an underscore followed t)y 
a command) marks the end of input. 

The iDuilding of a VISAM data set is similar, but the line format is: 



length 
C4 bytes) 



line nunaner 
C7 iaytes) 



card/keyboard 
CI byte) 



user text 
C120 tjytes) 



Line numbers are assigned in ascending sequence, in the order lines 
are received. The other major difference from V3AM creation is that 
each VISAM input record is checked for modification indicators. If the 
input record contains %D fO'llowed by a line number, the line bearing 
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that number is deleted from the data set being built. If the line num- 
ber is preceded by a % only, the text following it is written as either 
a replacement or an insertion line, depending on the line number speci- 
fied. When a %E Cor an underscore followed by a command) record appears 
for VSAM or VISAM data sets, DATA closes the completed data set, without 
writing the %E (or an underscore followed by a command) in the data set. 
If a new member was created, a member descriptor for it is added to the 
POD before the data set is closed. Control then passes to the calling 
routine. If the attention key is pressed while the DATA command is in 
operation, the path taken depends upon how far processing has advanced. 
If the new data set has not yet been opened, DATA merely returns con- 
trol, leaving the JFCB set up (if it was generated). Otherwise, DATA 
closes the opened data set (the member is stowed if it is a VPAM data 
set) , and then returns control to the calling routine. The VISAM data 
set, once opened, thus exists and may be added to later, if desired, by 
means of the MODIFY command routine. 

ERROR CONDITIONS : The routine checks for acceptable operands and noti- 
fies the user, through user prompter, of any errors found. For the mes- 
sages issued, see System Messages . 



Tne routine may issue these system errors: 
SYSEK Code Severity ABEND Message 
050504502 Minor 



Significance 



SYSTEM ERROR, INVALID Invalid return 
RETURN CODE FROM CALLED code from a called 
ROUTINE. module. 



050504504 Minor SYSTEM ERROR, TROUBLE 

WITH MEMBER NAME. 



CHEKDS indicates a 
member name but left 
parenthesis was not 
found or, when add- 
ing member name, 
new data set nansc? 
length is greater 
than 45. 



050504505 



Minor 



SYSTEM ERROR. TROUBLE 
WITH CHKNUM ROUTINE. 



Invalid return code, 
from CHKNUM, or all 
zeros in line 
nuiiiber. 



SYSTEM CONTROL BLOCK USAGE : 

Task Common (CHATCM) 

Task Data Definition Table CCriArOT) 

Data Control Block (CHADCB) 

'► DDEF Command Routine (CZAEA) 

To define a data set to the system, this routine creates a job file 
control block (JFCB) entry in the task data definition table (TOT) » In 

addition, the routine issues requests for device allocation and direct 

access external storage, as needed by the newly defined data set. (See 
Chart BK.) 

ENTRIES ; 

CZAEAl - user command entry 

CZAEA2 - FINUJFCB entry 

CZAEA3 - user macro instruction entry 

CZAjiA4 - system macro instruction entry 

CZAEA5 - fully qualified dsname entry 

CZAEA6 - FINDDS entry 
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MODULES CALLED: 



CHEKDS CCZAAC2) 
LOCATE CCGCFL) 
MTREQ (CZCAAl) 
MTVOL (CZCAMl) 
RELEAS (CZCADl) 
ALLOCATE (CZCEA) 
GETMAIN (CZCGA2) 
MSGWR CCZAAD2) 
LIBMAINT (CZCDH) 



Validates the syntax of data set name. 

Finds the catalog entry for the data set. 

Mounts a volume for a non~VAM data set. 

Mounts volumes for VAM data set. 

Releases devices allocated for private volumes. 

Allocates pages for new data sets on direct access. 

Gets a new page for JFCBs. 

Issues system messages to SYSOUT. 

Opens the DCB for a data set defined as a JOBLIB, 



EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION ; Operation of this routine may be divided into four broad 
steps: 

1. The first step is to read the command Cor macro instruction) 
operands, and set these operand values in the new JFCB. 

2. The second step is to set default values — where defaults are 
indicated — in the new JFCB- If the data set being defined is 
cataloged, values available in the catalog entry for the data set 
are also moved to the JFCB. Information available is in the cata- 
log will override system default information. 

3. The third step is to effect volume mounting and space allocation 
for data sets, if necessary. 

4. Tne last step before returning control is to link the newly created 
JFCB into the proper chain or chains in the TOT. 

Operand Handling : The routine first sets up the new JFCB. It locates 
the JFCB by checking the TOT header. In most cases, the JFCB fields are 
blanked or zeroed. 

Operands in the input string are now inspected one by one. The first 
operand is the ddname (data definition name), which if syntactically 
correct is moved to the JFCB. At the same time a check is made through 
the TDT for a ioatching ddname. If one is found, the address of the 
matching ddname is saved for later tests and for possible use in conca- 
tenating. The second operand is assumed to be the dsorg Cdata set 
organization) value. It too is validated before being moved to the 
JFCB. 

All subsequent operands are identified by keywords. As each keyword 
is recognized, the individual elements of that operand are isolated, 
checked for syntactic correctness, and then processed by an appropriate 
part of the DDEF routine. In general, handling of UNIT, VOLUME, SPACE, 
DISP, LABEL, OPTION, and DCB operands involves validating elements for 
syntax and logic, and then setting them in the corresponding JFCB 
fields. For the DSNAME, the routine ensures that a fully-qualified data 
set name is placed in the JFCB- It will allow for partitioned data set 
members, members of generation data groups, IBI^j System/360 Operating 
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System names, normal data set names, and names containing special ASCII 
characters. 

If the first two characters of the data set name parameter are a 
quote and a blank, in that order, the normal TSS syntax is ignored and 
the data set name is scanned until the first quote-comma pair is found. 
All other characters between these pairs are assumed to be the data set 
name, and it is not validated, except for length. Clf the new data set 
name matches a name already in the TDT, and the old ddnarae is not a sys- 
tem name, the new ddname will be substituted for the old ddname and the 
routine will return control to its calling routine without processing 
any other operands.) 

Processing of keyword operands continues until the end of the input 
string is reached. UNIT, LABEL, and VOLUME are ignored for a cataloged 
data set; SPACE is ignored if the data set already exists. 

If the first two characters in the volume serial number specified in 
the volume parameter are a quote and a comma, the next six characters 
are assumed, without checking, to be the volume serial number. They are 
not validated. One seventh character is checked for a coroira or a right 

parenthesis. If neither, DDEF assumes a user error has occurred. 

Default Handling ; The routine now checks to see if certain values, such 
as dsorg, have been defaulted or if other values, such as file sequence 
number, have been defaulted under certain conditions. As needed, the 
routine will set standard values in the JFCB to fill out the defaulted 
fields. Most defaults result in the operand or element being ignored^ 
unless the information is available in the catalog. Only dsorg, disp, 
file sequence number, and volume sequence number are always considered. 
other defaults that depend on the device required by the data set Cfor 
example, tape density) will be processed during device or storage 
allocation. 

The routine also checks to see if a data set nas been cataloged. If 

so, the routine tests to ensure that the catalog and JFCB values for 
dsorg and disp agree. If the data set is cataloged, and disp is 
defaulted, disp is set to old. In addition, it uses the catalog infor- 
mation to fill certain fields of the JFCB: labei-type, original data 
set, and volume flags. Note that catalog information takes precedence 
over corresponding information supplied by the DDEF command or macro 
instruction. 

Volume Handling ; For a data set on a private non-VAM volume, the rou- 
tine makes a request to MTREQ for device allocation and sets appropriate 
flags in the JFCB. 

For a new non VAM data set on direct access storage, the routine 
moves the data set space requirements to the JFCB, then calls ALLOCATE 
to reserve space for the data set on a direct access volume. Tne space 
requirements may be either default values or values specified in the 
DDEF command or niacro instruction. 

For data sets on VAM volumes, the routine calls MTVOL to mount all 
volumes. 

Chaining : The routine places the new JFCB into the main JFCB chain of 
the TDT. Depending on the data set defined, it may also link the JFCB 
to the temporary tabulation chain (for a new data set) or to the library 
chain (for a JOBLIB) . When a concatenation is indicated by the CONC 
option and by matching ddnames for physical sequential organized data 
sets, except ASCII formatted data sets, forward and backward concatena- 
tion pointers are set as well. 
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Before returning control to the calling routine, the DDEF routine 
tests to see if the newly created JFCB has used the last available space 
on the current page. If this is so, GETMAIN is invoked to fetch a new 
page, which is then formed into 17 JFCBs, all linked together, for 
future use. 

ERROR CONDITIONS ; If entry was by macro instruction, a hexadecimal code 
is returned in the fourth byte of general register 15. Also, the mes- 
sage identification code of the diagnostic which would have been issued 
if the DDEF had been a command is placed into general register 1, to 
clarify the meaning of a nonzero return code. 

Code Significance 

00 No error detected 

on Data set undefined 

08 Data set name not unique 

OC Attention interrupt, occurred 

10 Inconsistent dsorg 

14 Nonexistent generation name specified 

18 DSNAME not fully qualified 

IC VOLCs) cannot be mounted 

20 Space not available 

4 Duplicate ddnames but no concatenation 

8 Other invalid specification 

The routine checks for acceptable operands and notifies the user, 
through user prompter, of any errors found. For the messages issued, 
see System Messages . 

The routine may issue these system errors. In each case the severity 
is minor, and the ABEND message is SYSTEM ERROR - TASK TERMINATED- 

SYSEK Code Explanation 

050502500 Invalid conversational CTCMCOV) or confirmation CTCMCDF) 
field in task common. 

050502501 Invalid time in system common. 

050502502 Invalid data set name from FINDDS ox error in DDEF scan 
routine. 

5050 250 3 Invalid return code from CHEKDS when validating data set 
name. 

05050 2504 Invalid return code from LOCATE Cwh€:'n searching catalog for 
duplicate data set name) - 

050502505 Invalid fully qualified name from LOCATE, or SBLOCK is not 
a data set descriptor. 

050502506 Invalid return code from FINDDS. 

5050 2507 Logic error within DDEF in DCB parameters. 
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050502508 Invalid return code from LOCATE for SBLOCK of next volume. 
5050 2509 Invalid return code from ALLOCATE. 

050502510 Invalid return code from B^TREQ. 

050502511 Return code from MTREQ indicates requested volume could not 
be found. 

050502512 Invalid return code from RELEAS. 

050502513 Inconsistency of address with message response area; end- 
of-field address is not greater than next available address 
for response. 

05050 2514 Invalid return code from MSGWR. 

050502515 Invalid return code from GATRD Cused to read parameter list 
from SYSIN). 

050502516 Invalid delimiter from scan routine in DDEF. 

SYSTEM CONTROL BLOCK USAGE : 

Task Common CCHATCM) 

Symbolic Device Allocation Table (CHASDA) 

System Common CCHASCM) 

Interrupt Storage Area (CHAISA) 

Catalog SBLOCK CCHACCC) 

Task Data Definition Table CCHATDT) 

Public Volume Table (CriAPVT) 

Routine Control Blocks ; The DDEF routine employs several internal 
tables, detailed descriptions of which may be found in the listing. 
Below is a summary of each table's function. 

1. The parameter address list and the parameter descriptor table con- 
trol transfers within the routine while operands are being pro- 
cessed. The parameter address list consists of 18 words ^ and the 
parameter descriptor table consists of 37 words. 

2. The parameter definition table is used for prompting. 

3. Two tables are used to validate the individual elements of DDEF. 
The first table is a list of attribute and flag addresses for each 
element. The second table is the attribute table which defines 
what is valid for each element. 

i*. The consistency table is used to ascertain whether the parameters 
are consistent with each other. This table is only used for unca- 
taloged data sets, and is only part of the internal consistency 
checking done by DDEF. 

5. DDEF uses a table of logical diagnostics with a description of per- 
mitted replies. It consists of two words for each logical diag- 
nostic issued. 

- DSS2/PC? Command Routine CCZAEL) 

This routine processes both DSS? and PC? commands. For DSS?, the 
status of one or more cataloged data sets is presented. For PC?, the 
data set name, user's access, and, for shared data sets, the owner's 
identification of one or more cataloged data sets is presented. (See 
Chart BL.) 
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ENTRIES ; 

CZAELl - DSS? entry 
CZAEL2 - PC? entry 

MODULES CALLED : 

GATE (CZATCl) 

MSGWR CCZAAD2) 

MTREQ CCZCAA1S2) 

LOCATE CCZCFL) 

OBTAIN CCZCFOl) 

SCAN Routines: 

NEXT PAR (CZAACl) 

CBECKDS CCZAAC2) 

ALFNUM CCZAAC3) 

FREE^lAIN (CZCGA3) 

ABEND (CZACPl) 

BOMP CCZCABl) 
SETXP CCEAH7) 
RELEASE CCZCADl) 



Wrxtes information on SYSOUT. 

Issues system messages. 

Mounts private volumes; obt^iins the symbolic 
device address of a public volume. 

Retrieves a catalog SBLOCK for a given fully- 
qualified name. 

Obtains a DSCB for a SA^j data set on a direct 
access device. 

Obtains input parameters. 

Checks for a valid dsname. 

Checks for a valid userid. 

Releases the pages obtained by LOCFQN for the 
TBLOCK Structure. 

Terminates processing after a system error is 
detected. 

Mounts successive private volumes. 

Issues an SVC 244 to read in a DSCB page. 

Releases private volumes mounted. 



EXITS ; The routine returns to the calling routine via the RETURN macro 
instruction. If a system error occurs, the routine exits to ABEND. 

OPERATION ; The SCAN routines are called to obtain input parameters and 
validate the dsname and userid. If the parameters are valid, LOCATE is 
called with the input name prefixed to the userid to obtain the TBLOCK 
structure. LOCFQN returns with TBLOCKs containing sharing and volume 
information. Volume information is extracted from the TBLOCKs and 
printed. For DSS?, MTREQ is called to mount the required volumes. For 
direct access devices (either public or private) , OBTAIN is called to 
obtain a DSCB for a SAM data set or a SETXP is issued to read in a DSCB 
page for a VAM data set. Additional information is extracted from the 
DSCB and printed. 

ERROR CONDITIONS ; The routine checks for acceptable operands and noti- 
fies the user of any errors found. For messages issued, see System Mes- 
sages . The routine may issue this ABEND; 

•TASK ERROR. CZAEL PROCESSING COMPLETE, BUT TRANSIENT DEVICE NOT 
RELEASED. DEVICE FREED BY ABEND.' 
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SYSTEM CONTROL BLOCK USAGE ; 

Task Common (CHATCM) 
TBLOCK Data Set Descriptor (CHATBD) 
TBLOCK Continuation CCHATBC) 
TBLOCK Sharer (CHATBS) 
Interrupt Storage Area (CHAISA) 
TASK Definition Table (CBATDT) 
F03naat-E DSCB CCHADSE) 
Public Volume Table CCHAPVT> 

fc^ ERASE/ DELETE Command Routine (CZAEJ) 

This routine erases or deletes a data set, as specified by the user. 
The DELETE procedure removes a data set entry from the catalog. The 
ERASE procedure erases the direct access storage assigned to the data 
set as well as deleting the catalog entry. (See Chart BM.) 

ENTRIES : 

CZAEJl - ERASE command entry 

CZAEJ 3 - ERASE entry from batch monitor 

CZAEJl - DELETE command entry 

CZAEJ 5 • DELETE macro instruction entry 

CZAEJ6 - ERASE entry for COPY, ABEND, and LOGOFF 

CZAEJ7 - ERASE macro instruction entry 

CZAEJ8 - ERASE entry for QUIT 

CZANER - SYNAD error entry 

CZAEOD - EODAD entry 

MODULES CALLED : 

SRCHSDST (CZCQEl) Searches for data sets opened by sharers. 

NEXTPAR (CZAACl) Gets a command operand. 

CHEKDS CCZAAC2) Validates a data set name. 

MSGWR CCZAAD2) Issues system messages. 

FINDDS (CZAECl) Locates the address of a JFCB. 

RELEASE CCZAFJ6) Closes the data control block. 

DDEF CCZAEA5) Creates a JFCB. 

LOCATE CCZCFL) Finds a data set descriptor for shared data set. 

DELCAT (CZCFD) Removes a data set from the catalog. 

SCRATCH CCZCES) Removes a data set control block from volume table 

of contents. 

FREEMAIN CCZCGft3) Releases virtual storage page. 

GOV CCZASDX) Obtains a default value for DEPROMPT. 

DELVAM Removes VAM data sets from the catalog and the 

volumes in ERASE mode. 

This routine also uses OPEN, FIND, STOW, CLOSE, and MTREQ. 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 

to ABEND. 
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OPERATION ; Before processing either an ERASE or DELETE request, the 
SCAN routine NEXTPAR and CHEKDS are used to fetch and validate the com- 
mand operand. If the operand proves valid, LOCATE is called to search 
the catalog, and compile a list CTBLOCK) of all data sets qualified by 
the input data set name. If the task is non conversational, the data 
sets are erased or deleted as originally specified by the user. 

For any data set to be processed, FINDDS is called to search the task 
data definition table CTDT) for the address of its job file control 
block CJFCB) . If the data set is cataloged but not found in the TDT, 
FINDDS calls DDEF to create a JFCB. 

It is necessary to check for open data sets before erasing. If a 
data set has been opened by sharers, or by the owner in another task, 
the ERASE command will be ignored. The erasure or renaming of an open 
data set would have resulted in subsequent errors in the system should 
one of the sharers attempt to use the data set. 

Before processing an erase or delete request, GDV is called to deter- 
mine the value of the DEPROMPT operand in the user profile. If the 
value is Y, ERASE/DELETE prompts the user for disposition of data sets, 
when more than one is referenced. 

For non-¥AM data sets, the ERASE/DELETE routine processes an ERASE 
request by performing the following functions: 

1. RELEASE is called to close the data control block. 

2. SCRATCH is called to delete the data set control blocks from the 
volume table of contents CVTOC) . 

3. If the data set is cataloged, DELCAT is called to delete the 
various index levels from the catalog structure. 

4. RELEASE is called to release the data set entry in the JFCB. 

For VAM data sets, the ERASE/DELETE routine processes an ERASE re- 
quest by calling DELVAM to delete the catalog entry, remove the data set 
from the volume and release the JFCB. If only a member of the data set 
is to be released^ ERASE/DELETE calls FIND to locate the member name in 
the Partitioned Organization Directory (POD) and STOW to remove the mem- 
ber from the POD. 

In processing a DELETE request, the ERASE/DELETE routine calls DELCAT 
to delete the data set's catalog entry. If there is a JFCB, RELEASE is 
called to close the DCB and release the JFCB. 

Final processing of the ERASE/DELETE routine is as follows: FREEMAIN 
releases the virtual storage previously obtained by LOCFQN. Control is 
then returned to the command analyzer and executor, or the calling 
routine. 

When the batch monitor calls ERASE/DELETE, only the ERASE procedure 
is used. This operates basically as described above except that the 
routine returns error codes rather than printing diagnostic messages and 
waiting for a response, and DDEF will be called if there is no JFCB and 
LOCATE has been successful. 

Code Significance 

^♦C System data definition name found in TDT E 

58 Data set opened by another sharer 
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The routine checks for acceptable operands and notifies the user, 
through MSGWR, of any errors found. For the messages issued, see System 

Messages. 

The routine may issue these system errors. In each case the severity 
code is minor, and the ABEND message is SYSTEM ERROR - TASK TERMINATED. 

SYSER Code Explanation 

050503401 Nonzero return code from CHEKDS. 

050503404 Unsuccessful return code from MSGWR. 

050503405 Data set count is nonzero, but no forward pointer in 
TBLOCK. 

050503406 Invalid type of TBLOCK. 

05050 3407 Return code of C from FINDDS. No space is allocated. 

5050 3408 Invalid return code from FINDDS. 

050503409 FINDDS not finding JFCB created by DDEF. 

050503410 Invalid data set name code returned by DDEF. 

050503412 Invalid return code from SCRATCH. 

050503413 Invalid return code from LOCATE. 

050503414 Unsuccessful return from DELCAT. 

050503415 DELCAT unable to delete data set descriptor (DSD). 

050503416 RELEASE unable to release JFCB frisro TDT. 
05050 3418 CHEKDS found invalid member name. 

050503419 Invalid return code from STOW. 

050503420 Invalid return from NEXTPAE. 
05050 3423 Unknoim TBLOCK; not TBD or TBC. 
05050 3424 Validity bit in JFCB not on. 

050503426 Invalid return from RELEASE when trying to close DCBs. 

50503427 Invalid return code from MSGWR. 

050503428 Sharing indicator but no sharing descriptor TBLOCK. 

050503429 Label error. 

050503430 SYNAD exit. 

050503431 EODAD exit. 

ERROR CONDITIONS ; If entry was by macro instruction, a hexadecimal code 
will be returned in the fourth byte of general register 15: 

Code Significance 

00 No error detected E/D 
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O'^ Not class D or batch monitor entry E 

08 Invalid return code from NEXTPAB E/D 

OC Invalid delimiters in data set name E/D 

10 No data set name supplied E/0 

14 Invalid return code from CHEKDS E/D 

18 Data set name not in catalog or TDT E or volumes could not 
be mounted 

IC Partitioned data set not fully qualified name E 

20 Member of partitioned data set not found in POD E 

m Data set not cataloged D 

28 Data set on public volume D 

2C Data set is member of partitioned data set D 

30 User does not own data set in ERASE batch monitor entry E 

34 Sharing/access conflicts prevent processing E/D 

38 No catalog entry for ERASE batch monitor entry E 

3C Data set name undefined-return code from DDEF E 

44 Data set not on direct access E 

48 Volume not found 

4C System JFCB 

58 Data set in use 

5C Resources exceeded, volume cannot be mounted 

60 Loaded DS; cannot erase or delete 

64 Bulk I/O pending on data set 

SYSTEM CONTROL BLOCK USAGE ; 

Task Common CCHATCM) 
TBLOCK Data Set Descriptor CCHATBD) 
Task Data Definition Table (CHATDT) 
Data Control Block (CHADCB) 
Interirupt Storage Area CCHAISA) 

► EV¥ Command Routine — CATVAM CCZCF3) 

This routine catalogs data sets on private volumes which were pro- 
duced on one system to allow their use on another system. In support of 
this function, the routine will optionally alter the userid portion of 
the FQN in the Format-E DSCB to make the FQN compatible to the second 
system. Multi-volume data sets are also processed by this routine. 
(See Chart BN.) 

ENTRY ; CZCFBl - normal entry 
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MODULES CMoLED z 

DDEF CCZAEAl) Sets lip a JFCB with the necessary parameters. 

MTREQ CCZCAA) Issues mount requests for the required volumes, 

VAMINIT CCZCEQ) Reads in the PAT table and initializes the 

volume. 

DSCB RD/WR CCZCEM) Makes a DSCB page available to the task. 

ADDCAT CCZCFA) Creates a catalog entry, 

PGOUT (CEAAl) Writes out a DSCB page. 

BUMP CCZCAB) Dismounts and mounts volumes. 

INDEX CCZCFI) Updates and chains an indexed data set. 

LOCATE (CZCFL) Verifies the userid. 

GETMAIN CCZCGA2) Obtains virtual storage. 

FREEMAIN CCZCGA3) Releases virtual storage. 

User Prompter CCZATJl) Issues diagnostics to user. 

RELEASE CCZAFJl) Freeup device and JFCB. 

EXITS: Control is returned to the calling routine via the RETURN macro 
instruction. 

OPERATION : After validating the input parameter list, a random ddname 
is generated for the DDEF instruction. The DDEF macro is then issued 
with enough parameters specified to create a JFCB which meets the 
requirements for later processing by ADDCAT, MTREQ and BUMP. 

A parameter list is then prepared for the MTREQ routine. The parame- 
ters consist of the volume serial number Cs) and the address of the JFCB 
for the task. MTREQ issues a mount request for the first volume to be 
mounted and GETMAIN requests a block of virtual storage in order to read 
in and process DSCB pages. The VAMINIT routine is called to initialize 
the volume and read in the PAT. 

The PAT is scanned to find a DSCB page and the DSCB page is read into 
virtual storage by invoking the CZCEM '»^out5ne. If the option to alter 
the userid portion of the FQN was specified, the first Format-E DSCB is 
located and the userid portion of the FQN is altered and the DSCB check- 
sum is modified. LOCATE is called first in order to verify the old 
userid and see if the data set is cataloged. If the data set is not 
cataloged but the userid is valid, ADDCAT is called to catalog the data 
set Cthe new userid, if specified, is updated before calling ADDCAT). 
The condition code returned from ADDCAT is checked to assure that the 
data set was cataloged successfully. If the data set is cataloged and 
the userid is valid, the DSD is verified to assure that the data set 
being processed is the same as the cataloged data set. 

If the data sets are the same, the next Format~E DSCB is located and 
the same procedure is followed as for the previous Format-E DSCB. The 
next Format-E DSCB is located and the same procedure is followed as for 
the previous Format-E DSCB. 

If the option to alter the userid portion of the FQN was specified, 
the DSCB WRITE routine (CZCEMl) is called to write the altered DSCB page 
on the same place on the disk from which the DSCB page was originally 
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read. Clf the write is unsuccessful the user is informed of the failure 
to relocate the DSCB, and further processing is bypassed.) If the write 
is successful Cor if the DSCB was not changed), the PAT is scanned for 
more DSCB pages. If any are found, they are read in and the same proce- 
dure is followed as for the previous DSCB page until the entire PAT has 
been scanned and the entire volume cataloged. 

After volume processing is complete, a test is made for task comple- 
tion. If it is not complete, the BUMP routine is called to dismotant the 
current volume and mount the next volume in the list. VAMINIT is then 

called to initialize the next volume and processing continues as for the 
previous volume. 

After the last volume of the task is processed, the direct access 
device is released by invoking the REL command. This frees up the 
device and releases the JFCB. A call to FREEMAIN releases the virtual 
storage page. 

ERROR CONDITIONS : EW prompts the user and returns to its calling rou- 
tine under the following conditions: 

1. Missing or invalid command parameter. 

2. An attempt by other than a manager or administrator to change the 

user id. 

3. A userid that has too many characters or is not joined to the 
system. 

4. Erroneous volume entries. 

5. An attempt to build a JFCB fails. 

6. On the mount request (a) the user has cancelled, Cb) the first 
volume cannot be mounted due to a MTREQ error, Cc) the user is not 

authorized to use the volume. 

7. The requested data set cannot be shared by the current user. 

8. DSCBWR cannot relocate the DSCB. 

9. ADDCAT cannot catalog the data set. 

10. Device release fails after the task has been completed. 

SYSTEM CONTROL BLOCK USAGE : 

Task Common CCHATCM) 

Task Data Definition Table CCHATDT) 

Format-E DSCB CCHADSE) 
Catalog SBLOCK (CHACCC) 



^ EXECUTE Command Routine CCZABB) 



This routine sends a message to the batch monitor to initiate a non- 
conversational task. The name of the data set that will serve as the 
task's SYSIN is supplied in the message. EXECUTE operates in conversa- 
tional mode only. (See Chart BO.) 

ENTRY: CZABBl - normal entry 

^^ODULES CALLED ; 

NLXTPAR CCZAACl) Fetches data set name and checks for valid 

characters. 
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CHEKDS CCZAAC2) 
LOCATE (CZCFL) 
MSGWR CCZAAD2) 
VSEND 

AWAIT 



Validates syntax of data set naroe. 

Finds catalog entry for SYSIN data set name. 

Issues messages to user (bridges into user prompter) 

Sends request to batch monitor Cif the task is not 
the main operator's). 

Delays processing until reply to request message is 
received. 



EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND- 
OPERATION: The routine first fetches the name of the SYSIN data set, 
which is furnished as the input parameter, and checks that it is valid; 
two SCAN routines, NEXTPAR and CHEKDS, are called for this. EXECUTE 
then checks, via LOCATE, to see that the valid data set name actually 
appears in the catalog. If not, or if the name proves invalid, a diag- 
nostic message is issued, asking the user to reenter the data set name- 
After the name has been fully validated, EXECUTE builds a request 
message and sends it, via VSEND, to the batch monitor. When the batch 
monitor receives the message, it assigns the task a batch sequence num- 
ber, and adds an entry for the task in the batch work queue. Until the 
batch monitor responds, an AWAIT puts the EXECUTE task in wait status. 
Upon return, the batch sequence number is issued to the user and EXECUTE 
returns control to the calling routine. 

Before and after issuing each diagnostic message, and before sending 
the request message to the batch monitor, EXECUTE polls for attention 
interrupts. If one is detected, control is immediately returned to the 
calling routine. 

ERROR CONDITIONS ; The routine checks for an acceptable operand and 
notifies the user, through user prompter, of any errors found. For the 
n.essages issued, see System Messages . 



SYSER Code Severity ABEND Message 

050202601 Minor INVALID RETURN CODE 

FROM A CALLED ROUTINE. 



5020 260 2 Minor MESSAGE TO BATCH MON- 
ITOR COULD NOT BE 
EXECUTED, 



significance 

Invalid return code 
received from a 
called module. 

VSEND to batch moni- 
tor not completed. 



SYSTEM CONTROL BLOCK USAGE ; 

Task Common CCHATCM) 
Batch Work Queue CCHABWQ) 
Catalog SBLOCK (CHACCC) 
Message Control Block CCHAMCB) 
System Message Record CCHAMSG) 
Message Event Control Block CCHAMEB) 

•►EXHIBIT Director CCZAYD) 



The EXHIBIT Director is called when the EXHIBIT command has been 
entered from a terminal supported by TSS/360 as a SYSIN device. The 
Director then performs initialization, validates the request, and calls 
the applicable display routine to process the request. (See Chart BP.) 
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ENTRY : CZAYD3 - normal entry 

MODULES CALLED g 

UID EXHIBIT Processor CCZAYG) To process requests for a display of all 

active tasks in the system. 

BWQ EXHIBIT Processor CCEAYF) To process requests for a display of the 

Batch Work Queue. 

GETMAIN CCZCGA2) To obtain a work area for the display 

processors. 

FREEMAIN CCZCGA3) To release the work area acquired 

through GETMAIN. 

EXITS : When processing is complete CZAYD returns to its calling 
routine. 

OPERATION: CZAYD* s calling routine provides as input a pointer in 
Register 1 to a parameter list containing pointers to character strings. 
These are pointers to OPTION, TYPE, and FORM parameters. The option 
must be specified and valid; it may be either UID or BWQ, requesting 
displays of either the information about active tasks in the system or 
the activity on the Batch Work Queue. 

CZAYD calls an internal subroutine, SCAN2, to validate the UID or BWQ 
type. If the UID type is valid, the UID form is also checked. It then 
sets a branch table index to either the UID or BWQ displacement and pro- 
vides a 50-page work area for the subsequently called processor CCZAYG 
or CZAYF) . On return, if the task requesting the EXHIBIT function is 
tne operator task, CZAYD releases the 50 pages allocated as a work area. 
CZAYD then returns to its calling routine. 

ERROR CONDITIONS ; All diagnostic messages are directed to GATE. The 
following conditions cause diagnostic messages: 

1. No option specified. 

2. EXHIBIT option invalid. 

3. UID or BWQ type invalid. 

4. UID form invalid. 

SYSTEM CONTROL BLOCK USAGE: None. 



^ FINDDS Routine (CZAEC) 



Given a data set name, FINDDS searches the task data definition table 
CTDT) for a job file control block C JFCB) , and either provides the user 

with its address, or creates one if requested by the user. CSee Chart 

BQ. ) 

ENTRIES ; 

CZAEC 1 - normal entry 

CZAEC2 - used when the userid is specified in an input parameter list 
rather than in Task Common 

MODULES CALLED ; 

DDEF CCZAEA6) Creates new JFCB using information from the catalog. 
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LOCATE CCZCFLl) 
CHKDS CCZAAC2) 



Converts relative generation niimber to absolute 
number. 

Val idat es dsnaroe . 



EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 



OPERATION: FINDDS checks the data set name for a relative generation 
number or member name. A member name is removed, since it is meaning- 
less to this routine. A relative generation number is converted to its 
absolute form (via LOCATE) . If a relative generation data set name is 
not a FQN of a GDG, relative generation zero CO) is appended to the data 
set name. 

The task data definition table (CHATDT) is then searched for a JFCB 
containing the given data set name and, if it is found, its address is 
returned to the user. If a JFCB is not found, and the user requested 
one, a data definition name is generated from a value maintained for 
that purpose in task common. However, if FINDDS is entered at CZAEC2, 
it does not fetch the userid from Task Common, but uses the user id 
passed to it in Word 4 of the input parameter list. DDEF is called with 
this ddname to create a JFCB in the TDT. Its address is then supplied 
to the user. 

ERROR CONDITIONS ; A hexadecimal code is returned in register 15: 

Code Significance 

JFCB found or created as requested 

No JFCB found; no request to create one 



00 
04 
08 



No JFCB found; request to create one, 
but DDEF could not find data set name 
in catalog 

OC No JFCB found; DDEF could not create one 
because space unavailable. 

10 DSNAME invalid. 

14 No JFCB found; DDEF could not create one 
because volume could not be mounted. 



The routine may issue these system errors: 

SYSER Code Severity ABEND Message 

050502702 Minor SYSTEM ERROR, FINDDS. 

NO RIGHT PAREN IN DS- 
NAME. 



050502704 



Minor 



050502706 



Minor 



SYSEM ERROR, UNEX- 
PECTED RETURN FROM 
LOCATE. 



SYSTEM ERROR, FINDDS, 
INVALID RETURN FROM 
DD. 



Significance 

No right parenthesis 
after relative genera- 
tion number. 

Return code from 
LOCATE is invalid or 
LOCATE did not replace 
relative generation 
number with absolute 
one. 

Invalid return code 
from DDEF- 
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SYSTEM CONTROL BLOCK USAGE ; 

Task Common (CHATCM) 

Task Data Definition Table (CHATDT) 

► FINDJFCB Routine CCZAEB) 

This routine locates the job file control block (JFCB) for a given 
data definition nait^ (ddnaroe) and, if requested, checks that the proper 
volumes are mounted, (See Chart BR.) 

ENTRY : CZAEBl - normal entry 

MODULES CALLED : 

MSGWR (CZAAD2) Issues messages to user. 

DDEF (CZAEA2) Defines ddnaroe. 

MTREQ (CZCAAl) Requests volume mounting. 

BUMP (CZCABl) Replaces mounted voliime with requested volume. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction, with a pointer to the JFCB set in a caller- 
designated area. If the JFCB cannot be found and a normal return is 
made, the caller-designated area will be set to zciro. If a system error 
occurs, or if a JFCB cannot be found when it is mandatory, the routine 
exits to ABEND. 

OPERATION: Three option codes (0, 1, and 2) control FINDJFCB 
processing: 

= find JFCB, mount volumes, and do not return unless JFCB is found; 

1 = find JFCB and mount volumes, if possible, out return in any case; 

2 = find JFCB, if possible, and return, but do not mount volumes. 

For an option code of or 1, the task data definition table CTDT) is 
searched for a JFCB with the specified ddname. If the JFCB is not 
found, the conversational user is asked if he wants to define the 
ddname. If he indicates yes, DDEF is called to built the JFCB. If he 
indicates no, or if the task is nonconversational, the action taken 
depends on the option code. For option 0, a diagnostic is issued and 
the task is terminated via ABEND. For option 1, the output area is set 
to zero and return is made to the calling routine. 

When the JFCB is found or created, FINDJFCB next checks that the 
proper volumes are mounted. For a SAM data set, only the first volume 
of the data set has to be mounted. For VAM data sets, the volume Cs) are 
mounted at OPEN time. If the proper volumes cannot be mounted immedi- 
ately, MTREQ is called to reserve the necessary devices and place the 
task in the WAIT state until the devices become available. MTREQ then 
mounts the necessary volumes. When volume mounting is completed, 
FINDJFCB sets a pointer to the JFCB in the output area and returns to 
the calling routine. 

For option code 2, there is no attempt to mount volumes; only a 
search of the TDT is made to find the JFCB. If found, a pointer to the 
JFCB is placed in the output area and return is made to the calling rou- 
tine. Otherwise, the output area is set to zero before returning to the 
calling routine. Option code 2 does not prompt the user, nor does it 
check that the proper volumes are mounted. 
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ERROR CONDITIONS ; The routine takes this action if the JFCB cannot be 
found : 



Option 
Code 



1,2 



Action 

Issue diagnostic D002 DDNAME (name) UNDEFINED, then terminate 
task via ABEND. 

Set output area to zero, then return to calling routine. 



FINDJFCB may issue the message B022 WANT TO DEFINE DDNAl^E (name)? ENTER 
¥ IF YES, N IF NO, when an undefined ddnarae is discovered in a conversa- 
tional task and the option code is 1 or 0. 



The routine may issue these system errors: 
SYSER Code Severity ABEND Message 
050502600 Minor 



050502601 



Minor 



SYSTEM ERROR INVALID 
RETURN CODES 

Same as above 



Significance 

Invalid return code 
received from BUMP. 

Invalid return code 
received from MTREQ. 



SYSTEM CONTROL BLOCK USAGE: 



Task Common CCHATCM) 

Task Data Definition Table CCHATDT) 

^►f low Command Processor CCZAGD) 

The FLOW Command Processor allows the operator or manager/ 
administrator to regulate the number of each different task type (batch, 
remote, conversational, MTT appplication, and MTT aplication users) that 
tne system will process concurrently, by allowing the manipulation of 
the various job type limit fields in the system. (See Chart BS.) 

ENTRIES : 

CZAGDl - normal entry 

CZAGEl - subpararoeter processing entry 



MODULES CALLED : 
User Prompter (CZATJl) 
GATE (CZATCl) 
GETMAIN (CZCGA2) 

UFLOW Macro 



Informs the user of error conditions. 

Prints the buffer. 

Gets one page of storage for a buffer, if 
requested. 

Obtains or adjusts the conversational task 
limit or MTT application user limit. 



EXITS : This routine returns to its calling routine. 

OPERATION: On entry this routine checks for the appropriate authority 
code and privilege class. Only those with privilege class A, B, or F, 
and authority O or P can use the FLOW command. 

This routine then begins to check the parameter values for reasonab- 
leness. The param.eters that may be entered are BATCH, CONV, BACK, BUL- 
KIO, MTT, and APP. This routine checks the BATCH, BACK, and MTT parame- 
ters for exceeding maximum value. If they do not exceed the maximum 
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I value p this routine inserts the value entered for them in the System 
I Activity and Resources Table CCHASAR) . Otherwise the maximum value is 
i inserted in CHASAli, The CONV parameter is validated by issuiriq the 
I UFLOW macro with action code 1 passed in Register 15* Action code 1 
I leqnestSi UFLOW tv adjust the conversational task limit to tlie value spe~ 
1 cified in the low-order 2 bytes in Register 0» 

1 If the APP parameter xs entered, this routine links to CZAGEl to 
I build a list of :jubparameter addresses. Then, if there are active MTT 
I users., this routine links again to CZAGEl to build a list of application 
\ name add/.^-esses. h ielati¥e application number CR^N) ni£iy be associatc^d 
; witfi cii^' AP? aar iMieter. Il so, it is validated; if not,, a detault rvalue 
I ±3 used. When the application names are exhausted^ this routine uses 
] tbi-' UFLiMpi macro with action code 3 passed in Register 15 to <idicst the 
} MTT user limits for th€3 different application entiiciS, This routine 
;! then caij.s GATE to print all the application names it has acciirniilated in, 
;l the buffer- Oix return from GATE, this routine returns to itr- calling 
1' routine, 

,= If no pararaetcirs are entered with the FLOW coranand, the usei^r is re- 
i questing a display of task type counts and limits. This routine will 
I extract 'the appropriate fields for BATCH, BUUKIO, BACK and MTT from C.HA- 
I SAR and format them into a message. To complete the message, this rou~ 
I tine executes UFLOW with action code 2. This opeiation obtains the cur- 
i rent nuroher of conversational tasks in execution and the conversational 
I task limit, and returns it to the FLOW CoEiniand Prc-cessor, which includes 
j! this inf orifiatiori in the formatted message « This routine then calls GATE 
I to print the buffer. If there are active MTT administrators, this rou- 
i tine acquires another page of storage for its buffer, and executes UtLOW 
I with action code 4 to obtain the relative application number CRAW) and 
1 current iioinber of MTT users in execution for each application entry. On 
i:i return triis routine loads this print buffer with the KTT information and 
i calls GATE to print it. When this operation is finished, this routine-^ 
I retuinis to its entiling routine^ 

I 

I I'RRQK CONDITIONS : The FLOW Command Processor pron-f^ts the iis<--r ana con- 
tinues processing if the BATCH, CONV, BACK ^ or MTl' parameter is speci- 
fied with a value that exceeds the maximum allowec. Th€3 ir.axioiuin limit 
I is inserted in the table in these cases « The FLOU Command Processor 
I prompts the user and exit immediately when the user is not authorized to 
il use the rLOW command, or when it receives a nonzeio rt^turn cod^-^ trora 
I UFLOW, 

I 

i! SYSTEM CONTROL BLOCK USAGE ; This routine references and manipulates the 

I System Activity and Resources Table CCHASAR) . The following limits, 

I maxifoiims , and count fields, as well as the BULKIO Suppress Flaq, in CHA- 

I SAR c«in be set or displayed by this processor: 

f 

I BATCH SARBTL Batch task limit. 

I SARNRM Batch tasks in c-ixecotion. 

I SARMBT Maxiroum number of batch tasks « 

I 

I BACK SARRML Remote task liiTdt, 

I SARREM Remote tasks in execution • 

|; SARMRFj Remote task ma xi muni. 

i 

I BULKIO SARBAS BULKIO Suppress Flag, If set to X'Ol' indicates 

I BULKIO will not be initiated. If S€?t to K"00' BliL- 

I KIO will be initiated. 

I 

I MTT SARMAL MTT Administrator task limit. 

! ShRMCA Actual count of active MTT Adninistrators . 

[ 

I COIW 3ARMCN MaxirouTO niMiber of conversatiorai tasks allowed. 
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^ IF String Comparison Routine CCZBLT) 



This routine is a fast substitute for PCS IF processing when EBCDIC 
strings are being comparedi. (See Chart BT,) 

ENTRY ; C2BLT1 - normal entry 

MODULES CALLED ; 

Source List Updates the source list to an end-of-line or 
Handler (CZASC6) command. 

PCS IF CCZAMEl) Processes IF statements which require additional 

processing by PCS, 

EXITS ; This routine exits normally to the calling routine, via the 
RETURN macro instruction. 

OPERATION ; The routine is entered at CZBLTl from the CA€E when the IF 
verb is encountered. It tests •=• and •-!=■ for true or false compari- 
sons and sets a return code indicating the results of the test. Blanks 
on either side of equal signs are removed. If any of the following con- 
ditions are present, CZBLT calls PCS IF for additional processing: 

• The phrase being processed is dynamic 

• Argument is not a quoted string 

• No terminating quote found in current string 

• Embedded EOB encountered 

• A character other than = or i = is discovered between strings (such 
as <) 

• Semicolon is not the delimiter 

The source list is updated to the next command or end-of-line, whichever 
occurs first, and the routine exits with either a successful true or 

successful false condition. 

ERROR CONDITIONS ; None. 

SYSTEM CONTROL BLOCK USAGE ; 

Source List Page Header (CHASLP) 
Source List Sublist Header (CHASLH) 

Source List Marker CCHASLM) 



^ JOIN/ REJOIN Command Routine (CZAFK) 



These routines operate only in conversational mode to process the 
JOIN command by defining a legitimate new user to the system or the 
REJOIN command by redefining any parameter (exclusive of user id) and 
changing the user table entry accordingly. These commands can only be 
issued by a system iMinager or system administrator. (See Chart BU.) 

ENTRIES ; 

CZAFKl - JOIN entry 
CZAFK2 - REJOIN entry 

MODULES CALLED ; 

ALFNUM CCZAAC3P> Validates user identification. 
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DELCAT CCZCPHl) Deletes an entry in SYSVCT. 

READ/WRITE CCZCPEl) Operates on the User Table and the the User 

Limits Table. 

FIND CCZCOJl) Locates the User Limits Table. 

User Prompter CCZATJl) Accessed via the PRMPT macro; issues messages 

to user, 

EXITS ; The routine normally returns to the Command Analyzer and Execu- 
tor, via the RETURN macro instruction • 

OPERATION : After each operand of the JOIN command is fetched, it is 
validated according to the restrictions placed on the particular 
operand. Then, after validation and successful preliminary processing, 
the operand is stored, and the next one is fetched. When all operands 
have been successfully fetched, validated, and pz-ocessed, they are 
placed in the user table so that the new user will be defined to the 
system as a legal user. Certain operands (userid, charge number, 
priority, privilege class, authorization, ration, batch, and RJE) 
require special checking and processing. 

REJOIN follows the same processes as above except that only given pa- 
rameters are checked and inserted. Defaulted parameters are ignored. 
This command makes it possible to alter a user's entry in the user table 
without first QUITing him, thereby losing all his data sets. 

Userid ; If the new user is being joined by a system administrator, the 
fxTSt two characters of his user id are prefixed to the userid operand. 
The operand is then checked for syntactic validity. A further check is 
made to ensure that the userid does not already c-^acist in the system. 

Password ; This operand, if specified, is verific^d as having no invalid 
characters Csuch as parenthesis, comma, period, blank, etc.). If 
defaulted, an 8-byte all-blank password is assigned. A blank password 
may be specified by enclosing blanks within quot€?s. 

Charge Number : Each user has a charge number. The charge number is 
prefixed with the first two characters of the ustjr's newly established 
userid and checked for syntactic validity. No default value is 
permitted. 

Priority ; This operand, if specified, is verified as a value between 
and 9 inclusive, and then converted from EBCDIC to binary. If the 
operand is defaulted, an installation-defined value is assigned. 

Privilege Class ; This operand, if specified, is first verified as an 
alphabetic character. Further checks are made to ensure that the user 
can assign this class and that this privilege class is acceptable to 
this installation. If defaulted, an installation-defined value is 
assigned. 

Authorization ; This operand, if specified, is verified as either U, P, 
or O. If defaulted, the operand is assigned an installation value. 

Ration ; This operand, if specified, is verified as a value between 1 
and 9, inclusive. If defaulted, a value of 2 is assigned. 

Batch : This operand, if specified, is verified as either Y or N. If 
defaulted, N is assigned. 

RJE ; This operand, if specified, is verified as either Y or N. If 
defaulted, N is assigned. 
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When all operands have been processed, a first-level catalog entry is 
created for the new user and the entry is placed in the user table. 
Finally, control is returned to the coromand analyzer and executor, 

ERROR CONDITIONS ; The routine checks for acceptable operands and noti- 
fies the user, through the User Prompter, of any errors found. 

SYSTEM CONTROL BLOCK USAGE ; 

Catalog Common (CHACDS) 

System Common (CHASCM) 

Task Definition Table CCHATDT) 

Task Common (CHATCM) 

Shared Data Set Member (CHASDM) 

Data Control Block (CHADCB) 

Task Status Index (CHATSI) 

User Table CCHAUSE) 

User Limits Table CCHAULT) 

Interrupt Storage Area (CHAISA) 

Active User Table (CHAAUL) 



I^ JQINRJE/QUITRJfc Command (CZABS) 



This command creates or deletes a station ID entry from the RJE ac- 
knowledgement data set TSS*****. RJEACK. (See Chart BV,) 

ENTRIES ; 

CZABS 1 - JOINRJE command entry 
CZABS2 - QUITRJE command entry 
CZABS 3 - ABEND recovery entry 

MODULES CALLED ; 

WRITE CCZCPEl) VIS AM write to enter a station id in member 

VALIDSTA, 

ALFNUM CCZAAC3P) Validates input parameters. 

DDEF CCZAEAS) Defines acknowledgement data set. 

OPEN CCZCLAO) Opens acknowledgement data set for update. 

FIND CCZCOJl) Finds member of acknowledgement data set- 

VALIDSTAi finds VISAM member of STATIONID. 

STOW CCZCOKl) Creates or deletes acknowledgement data set 

member. 

DELREC CCZCPHl) Deletes VISAM records in member VALIDSTA. 

User Prompter CCZATJl) Issues messages to SYSOUT. 

SHAREUP (CZCFSl) Permits the acknowledgement data set. 

CLOSE CCZCLB) Closes acknowledgement data set. 

RELEASE CCZAFJ3) Releases acknowledgement data set. 

PAIR (CZACSl) Queues entry for ABEND Interlock Release Table. 

PAIR CCZACS2) Dequeues entry from AIR table. 

EXITS ; The routine exits to the calling routine via the RETURN macro. 
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OPERATION ; On hob ABEND entry, this routine validates parameter input, 
utilizing M.FNUM. After parameter ^-alidation, the various options 
(TYPE, MRF, TAB, BRK, and REC) are checked and set. Then the DATADEF 

routine CCZAEA5) IS INVOKED TO DEFINE THE ACKNOWLEDGEMENT DATA SET TSS** 

♦♦♦•RJEACK, the data set is opened, and the Task Definition Table CTDT) 

is interrogated to determine disposition. 

For disposition=new, the request must be for JOINRJE or the command 
is canceled via diagnostic message. The station id is entered utilizing 
VISAM WRITE, and the member VALIDSTA created via STOW. SHAREUP CCZCFSl) 
is then invoked to PERMIT/SHARE the TSS***** .RJEACK data set for later 
system use. 

For disposition=old, on a JOINRJE request the m«iber ¥ALIDSTA is 
located via FIND, and the requested station id is entered into the data 
set using WRITE. On a QUITRJE request, the BULKCOMM table CCHABCT) is 
searched to determine if the station id being quit is still active in 
the Bulkio task. If active, a diagnostic is output canceling the com- 
mand. For an inactive station id, entry point CZABS3 is queued on the 
AIR table for possible ABEND recovery with the BULKCOMM locked. A FIND 
is done on the requested station id to determine if acknowledgements are 
pending for that station id. If acknowledgements are queued in that 
member station id, the user is requested to specify their disposition. 
Based on the response, the command will be ignorc^d, the acknowledgements 
will be deleted, or the acknowledgements will be left enqueued. When 
there are no acknowledgements queued, the station id is deleted from 
VALIDSTA by DELREC. 

ERROR CQNDITIO'NS ; If an error is found during processing, the command 
is canceled and an appropriate diagnostic roessagt* is displayed on 
SYSOUT. 

SYSTEM CONTROL BLOCK USAGE ; 

BULKCOMM Table (CHABCT) 
BULKCOMM S- Entry CCHASET) 
Task Common CCHATCM) 
Task Definition Table CCHATDT) 
Data Control Block CCHADCB) 



I^ JOBLIBS and DDNAME? Commands CCZAEK) 



These commands allow a user to list the chain of DDNAMES and asso- 
ciated DSNAMES and to move any one of his JOBLIBS to the logical top of 
the list. CSee Chart BW. ) 

ENTRIES : 

CZAEKl - for manipulating the JOBLIB chain 
CZAEK2 - for reviewing user's JFCB chain 

MODULES CALLED : 

User Prompter (CZATJl) Writes diagnostic messages. 

GATE CCZATCl) Writes output to user. 

EXITS : Returns to calling routine. 

OPERATION : CZAEKl is the entry point for manipulating the JOBLIB chain. 
Upon entry the parameter is checked for the presence of a DDNAME. If 
one does not exist, a diagnostic is initiated, followed by an exit from 
the module. Once a DDNAME has been obtained, the JOBLIB portion of the 
TDT chain is searched for this JFCB. If no match occurs, a diagnostic 
is issued and the command canceled. If the DDNAME is found in the 
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chain, it is removed from the chain by adjusting the appropriate back- 
ward pointer of the previous JFCB. Then it is put at the top of the 
list by placing its address in TDTPLl, and replacing the backward point- 
er with the address which was at TDTPLl. 

Once the TDT chain is adjusted, the chain of DCBs in the Loader's 
PSECT is searched for the associated DCB. When it is found, the appro- 
priate forward and backward pointers are changed as the JFCB pointers 
were, so that the DCB ends up at the top of the chain. This completes 
normal processing and the module exits. 

If there were no JOBLIBS in the chain or the corresponding DCB could 
not be found, a diagnostic will be issued to the user and further pro- 
cessing canceled. In the latter case, the TDT chain will be rearranged 
as requested but the DCB chain will remain as is. 

CZM:k2 is the entry point for reviewing the user's JFCB chain* Upon 
entry, the JOBLIB parameter is checked for 'N* or default. If such is 
the case, the TDT chain is addressed. If the JOBLIB parameter is '¥% 
then the JOBLIB portion of the TDT is addressed. Next, a header message 
is initiated followed by the list of DDNjy4ES/DSNAMES of the JFCBs 
requested. For JOBLIB lists, the order of listing is from top to bot- 
tom; last DDEFed to first DDEFed. Once the end of the chain is reached, 
the module exits. 

ERROR CONDITIONS ; If there are no JOBLIBS assigned, or if the DDNAME 
does not exist in the JOBLIB chain, or if there is an invalid or missing 

parameter, the command is canceled. If no DCB is found, only the JOBLIB 
chain is reordered. 

SYSTEM CONTROL BLOCK USAGE ; 

Task Data Definition Table CCHATDT) 
Data Control Block (CHADCB) 



I^ KEYWORD Command Routine CC2ATH) 



This routine is used to display keywords or parameters of commands in 
a user's SYSLIB and USERLIB. CSee Chart BX. > 

ENTRIES ; The Display Keyword Format command has entry point CZATHC and 
is called by BUILTIN CZATHll. 

MODULES CALLED ; 

GATE CCZATCl) Outputs commands with their parameter keywords. 

FIND CCZCOJ) Searches USERLIB and SYSLIB. 

Common OPEN CCZCLA) Opens data sets. 

Common CI/)SE CCZCLB) Closes data sets. 

User Prompter CCZATJl) Outputs error messages. 

EXITS ; After all requested output has been printed Cor queued up for 
nonconversational tasks), this routine returns to its calling routine. 

OPERATION ; This routine first determines if all or a specific command 
in USERLIB CSYSPRO) is being requested. If all, USERLIB CSYSPRO) is 
opened and a pointer positioned to the beginning of the data set. Then 
this routine searches through the data set, seeking out all command 
names and their parameter keywords Cup to a maximum of 152 bytes). For 
PROCDEFs, the keywords are retrieved starting from line 100 of the pro- 
cedure. For BUILTINs, the module ID is taken from the SYSPRO entry and 
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stored in an adcon group. Then the adcon is arroed for subsequent 
issuance of a LOAD macro. Once the module is loaded, the parameter key- 
words are retrieved from BPKD. In any case, all commands, with their 
parameter keywords, are printed one command string per line. 

When the user has asked for a particular co^mmand, this routine 
searches USERLIB CSYSPRO) first, and, if not found there ^ searches SYS- 
LIB (SYSPRO). Once the command is found, its parameter retrieval pro- 
cess is the same as described above for PROCDEFs and BUILTINs. If the 
conmand cannot be found, this routine issues a diagnostic (via the PRMPT 
macro) indicating the situation, and processing terminates. 

ERROR CONDITIONS : If the command cannot be found, the user is prompted, 
and this routine exits to its calling routine. 

SYSTEM CONTROL BLOCK OSAGE ; Interrupt Storage Area CCHAISA) 

IN LINE? Command Routine (CZAEM) 

This routine presetns the contents of specified lines from a user's 
line data set or language processor list data set, (See Chart BY.) 

ENTRIES ; 

CZAEMl - normal entry 

CZAEME - EODAD error entry 

CZAEMS - SYNAD error entry 

CZAEM2 - DCB macro instruction entry 



MODULES CALLED ; 
NEXTPAR CCZAACl) 

CHEKDS CCZAAC2) 
ALFNUM CCZAAC3) 
NUMSTG CCZAACL) 
MSGWR CCZAAD2) 
GATWR CCZATCl) 
DDEF CCZAEA5) 
FINDDS (CZAECl) 



Locates operands and scan for invalid characters 
and delimiters. 

Validates data set name. 

Validates user identification. 
Validates line numbers. 
Issues system messages. 
Writes line on SYSOUT. 
Creates a JFCB. 
Locates a JFCB. 



EXITS ; The routine no,rmally retur^ns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 



OPERATION ; The data set name is fetched through 
is class B or F, the data set name must be prefix 
fication; this userid is removed, validated Cvia 

future use. For a class B user, a further check 
the first two characters of the userid are the sa 
characters of the userid of the administrator iss 
data set name is validated using CHEKDS. If the 
tioned data set name, the member name is removed 
use. 



NEXTPAR. If the user 
ed with a user identi- 
ALFNUM) , and saved for 
is made to ensure that 
me as the first two 
uing the command. The 
name is a valid parti- 
and saved for future 



After the data set has been successfully opened, and if the first 
qualifier (excluding userid) of the data set name is LIST, data set con- 
trol block fields are checked to verify that the data set is in language 
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processor list format, CA language processor list data set roust be 
index sequential, must have a key length of 7 bytes, a logical record 
length of 140 bytes, and record format must be fixed length. ) If the 
first qualifier is not LIST, the data control block fields are checked 
to vierfy that the data set is in line format. (A line data set must be 
index sequential or partitioned index sequential, must have a key length 
of 7 bytes, must have RKP='l , a logical record length of no more than 132 
bytes, and the record format must be variable length. ) If the line data 
set is partitioned index sequential, the FIND macro instruction is used 
to locate a specified member. 

If the entire data set Cor member of a line data set) is to be pre- 
sented, the SETL macro instruction is used to designate the start of the 
data set Cor member). The first logical record is then fetched by GPJT 
and presented via GATWR. Before and after each line is presented, a 
test is wmde for an attention interrupt. If one is detected, the data 
set is closed and control is returned to the command analyzer and execu- 
tor. If no attention interrupt has been received, GET obtains the next 
logical record and the process is repeated. Sequential reading and pre- 
senting continues until GET tries to obtain a record that is past the 
end of the data set. At this point, the user is informed that the end 
of the data set has been reached, the data set is closed, and control 
returns to the command analzyer and executor. 

If only a single line is to be presented, NEXTPAR fetches the line 
number? SETL points to the line; GET reads the line; and GATWR writes 
the line on SYSOUT. If a range of lines is to be presented, the process 
is the same except that NEXTPAR fetches both the beginning-of -range and 
end-of -range line numbers. When GET obtains a record with a key higher 
than the end-of -range line number, processing is complete - 

After each line or range of lines has been processed, a check is made 
to determine if there are any further lines to be processed from the 
current data set. If there are, processing continues. If not, the data 
set is closed and control is returned to the command analyzer and 
executor. 



ERROR CONDITIONS ; The routine checks for acceptable operands and noti- 
fies the user, through MSGWR, of any error found. The routine may issue 

the following system errors. In each case the severity is minor. 

SYSER Code significance 

050503700 Response switch set with incorrect value. 

050503701 Invalid return code from NEXTPAR. 
05050 3702 DCBEX2 field contains unexpected value. 

050503703 Privilege class indicator set incorrectly. 

050503704 Indicator for subfield of data set name set incorrectly. 

050503705 Beginning-of-range indicator set incorrectly. 

050503706 Beginning-of-range indicator set incorrectly. 

050503707 Beginning-of-range indicator set incorrectly. 

050503708 Prompting switch set incorrectly. 
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SYSTEM CONTROL BLOCK USAGE : 

Data Control Block (CHADCB) 
Task Common CCHATCM) 

^LOGOFF Command Routine (CZiyPN) 

This routine logs a task off the system. That is, it disposes of any 
uncataloged data sets that were defined by the task, releases all 
devices allocated to the task^ and frees the task's virtual storage for 

system use. When LOGOFF is completed^ the task no longer exists. (See 
Chart CA. ) 

ENTRIES : 

CZAFNl - normal entry 
CZAFN2 - shutdown entry 
CZAFN4 - 'END' exit function 

MODULES CALLED: 



VSS DISCONNECT CCZHNEB) 
FINDJFCB CCZAEBl) 



Disconnect VSS from the task. 

Finds the SYSOUT DCB for a nonconversational 
task. 



Loader Logoff CCZCCD4> 



Cleanup CCZCJCU) 

RELEASE (CZAFJ2) and 
CCZAFJ3) 



Unloads the user routines i releases the vir- 
tual storage assigned to the task. 

Refresh the Task Monitor Interrupt Table. 

In stages, releases all but the system data 
sets, releases SYSULIB^, releases all data 
sets. 



Common Close CCZCLBC) 

BIO Preprocessor CCZABD3) 
CATFLUSH CCZCFXl) 
VMTI-II (CZATDi^) 



Closes the SYS IN and SYSOUT DCBs for a non- 
conversational task. 

Prints SYSOUT for a nonconversational task. 

Flushes the catalog. 

Logs on the next subtask for express batch 
mode. 



RCR VACATE 



RCR LOGOFF 



RCR CLOSE 



Decrements the user count in the User Table 
for a nonconversational task. 

Computes and saves all resource information 
for the task and updates the User Table. 

Subtracts the user's entry from the User 

Table. 



The LOGOFF routine also uses FREEQ, DCON, DELVAM, WTL, EBCDTIME, CHANGE, 
ACCTSUBR, XTRTM, XTRACT, and ATCS during its processing. 

EXITS : Should an error occur during LOGOFF processing, this routine 
exits to the ABEND processor. The normal exit from LOGOFF processing is 
via the DLTSI SVC, which deletes the task status index for the task, 
thus eliminating the task from the system. 

OPERATION ; An entry at CZAFN2, indicating that a system shutdown is in 
progress, causes LOGOFF to act as if it were processing a nonconversa- 
tional task and prevents prompting messages. An entry at CZAFNl is con- 
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sidered a normal entry; however, if the operator task enters here, con- 
trol returns to the command system — the operator cannot successfully 
execute a LOGOFF. Operation of this routine is divided into two major 
parts. The first part is always performed; the other part is only per- 
formed when the task has uncataloged, defined data sets. 

LOGOFF always carries out a series of actions to eliminate the task 
from the system. Initially, it sets an indicator in the interruption 
storage area (ISA) to prevent any recursions of the ABEND routine. For 
nonconversational tasks which are not in Express Batch mode, LOGOFF 
informs the Batch Monitor that it may permit updating of the batch work 
queue. A complete logoff is then performed for tasks lAich are not in 
Express Batch mode by: 

1. Issuing a FREEQ to logically or physically disconnect this task 
from MTT. If SHUTDOWN is in progress, a physical disconnect is 

done. Otherwise a logical disconnect is issued. 

2. Issuing a FIND on the sysout JFCB for a nonconversational task. 

3. Checking STE level for error, and issuing the CHANGE macro if the 
STE level is in error. A bad return code from CHANGE results in 
system error 050506305. 

4. Issuing the LOGOFF accepted message. 

5. Calling the accounting subroutine -- ACCTSUBR — to record this 
task's use of the system resources. 

6. Closing the SYSIN and SYSOUT data sets for a nonconversational 
task, and issuing a print on sysout via PRINT. 

7. Issuing the ATCS macro for conversational tasks only; a logical 

disconnect is normally performed. In the case of a shutdown a 
physical disconnect is issued. 

8. Purging the terminal from the TSI to allow a new task to be created 

at this terminal. 

9. Releasing the task's virtual storage via a call to LOADER LOGOFF. 

10. Releasing all data sets used by the task by a call to RELEASE 
command. 

11. Updating the user table entry for the current user and deleting the 
AUL entry for the task. This is done by RCR LOGOFF. 

Note: A nonconversational task wij.1 call RCR VACATE previous to 
calling RCR LOGOFF. 

12. Closing the user table. 

13. Calling VSS DISCONNECT CC2HNEB) if the task has been connected to 
VSS. 

14. And finally, issuing the DLTSI SVC to erase the task status indica- 
tor and thereby eliminate the task completely. 

A complete logoff is not performed for an express batch subtask. A par- 
tial logoff is performed, the first four of the functions above are 
done, then the partial logoff is completed by: 

1. Calling LOADER LOGOFF CCZCCD4) to unload user called routines. 

2. Calling RELEASE CCZAFJ2) to release all but system data sets and 
performing a special release of SYSULIB. 
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3. Performing an RCR VACATE for the task and an RCR CLOSE to update 
the user's entry. 

4. Calling VM'I--2 CC2ATDi*> to logon the next subtask. 

Note ; When the SYNAD exit is reached in express batch (that is, no more 
suhtasks to be logged on) , CZAFP4 is entered. The userid in task common 
is changed to SYSOPERO and a complete logoff is performed (steps 5-14 in 
a normal logoff sequence) • 

LOGOFF disposes of uncataloged data sets created by the task (found 
in the temporary tabulation chain of the task data definition table) • 

ERROR CONDITIONS ; The routine may issue these system errors: 



SYSER Code 



050506305 



Severity ABEND Message 

Minor ERROR ATTEMPTING TO 
CHANGE STE LEVEL 



Significance 

Error return code 
from CHANGE. 



50506306 Minor NO JFCB IN TDT 

SYSOUT 



FINDJFCB determined 
that no JFCB was in- 
cluded for SYSOUT. 



050506307 Minor UNABLE TO RELEASE 

ALL 



Error return code 
from RELEASE. 



050506308 Minor INVALID RETURN FROM 

PRINT 



Error return code 
from PRINT. 



050506310 Minor MINOR SOFTWARE 

ERROR 



Error condition 

detected by RCR 

LOGOFF; or RCR 
CLOSE for a express 
batch subtask. 



SYSTEM CONTROL BLOCK USAGE ; 

Terminal Control Table (CHATCT) 

Interrupt Storage Area (CHAISA) 

Symbolic Device Allocation Table (CHASDA) 

Task Common CCHATCM) 

User Table (CHAUSE) 

Task Data Definition Table (CHATDT) 

Data control Block Header (CHADHD) 

RESTBL Header (CHARHD) 

Active User Limits Table CCHAAUL) 

Task Accounting and Statistical Table (CHAACT) 



^ LOGON (CZAFM) 



The UJGOm command routine validates the user's I£)GON parameters (his 
user identification, charge number, etc.) and carries out certain task 
initialization functions, such as setting values in task common. The 
user cannot proceed with his task until the LOGON routine has been suc- 
cessfully completed. (See Chart CB.) 

ENTRIES: 

CZAFMl - normal entry 

CZAFM2 - privileged entry for SYSOPERO, ABEND, BULKIO (TID=0002) 

CZAFMt* - privileged entry from private BULKIO 
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MODULES CALLED 2 



NEXTPJm CCZAACl) 
DDEF CCZAEAII) 
RCR OPEN 

RCR RATION 
RCR VACATE 

RCR CLOSE 

XTRCT 

SETUP 

SCHED 

EBCDTIME 

WTL CCZABQ) 

GATWR (CZATO 
LOGOFF (CZAFNl) 

User Prompter CCZATJ) 



Locates next operand. 

Creates JFCB for the user library (USERLIB) . 

Reads an entry in user table and update fields; 
create AUL entry. 

Processes task, CPU and connect time. 

Vacates resources assigned to task. 

Resets and writes user table entry « 

Fetches authority from Task Status Index, 

Stores information in Task Status Index. 

Alters task's internal priority. 

Gets current time. 

Issues logon message to operator log and issues 
ABEND message for a nonconversational task ABEND 
in LOGON. 

Issues shutdown message. 

Logs a task off when, specified auxiliary space 
is not available. 

Writes the initial logon message on the user's 
SYSOUT. 



EXITS: The routine normally returns to the calling routine, via the 

RETURN macro instruction* If a system error is detected, the routine 
exits to ABEND. 

OPERATION ; LOGON first determines what kind of task is logging on. For 
any conversational task, an ATTACH macro is issued which returns the 
address of the terminal control slot for this user. If the TCT slot's 
address is zero, LOGON exits to ABEND. Otherwise, this address is 
stored in GATE'S PSECT. The LOGON parameters are pointed to by a field 
in the TCT slot for every conversational task except an abended task. 
gate's PSECT is then initialized with information retrieved from the TCT 
slot, including the device type and a maximum SYSOUT line length. For 
nonconversational and abended tasks, the parameter string is pointed to 
in register one. For other than BULKIO and main operator tasks, LOGON 
then calls the User Prompter CCZATJ) to print the initial logon message. 

A complete LOGON consists of checking the LOGON command operands. 
Actual fetching and validating of each operand for proper syntax is done 
through calls to the SCAN's NEXTPAR routine. First the userid is vali- 
dated by a call to RCR OPEN. When the userid has been determined to be 
valid (that is, a read on the user table is good), an AUL entry is built 
for the user, an AUL entry is constructed for USERID=TSS ♦♦♦♦*, and the 
user table is updated. If the task is nonconversational, a call is made 
to CZBTBA to open the SYSOUT data set for this task. The routine next 
tests the 'first time through' switch for an express batch task. If on, 
a GATWR is issued to write the EXPRESS card to the task's SYSOUT. This 
is followed by another GATWR (issued for all nonconversational tasks) 
which writes the user's LOGON parameters to SYSOUT. 
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The LOGON parameters are then validated one at a time. If the task 
is conversational and the user table entry corresponding to the userid 
contains a valid password Cnot blanks) , the password is checked. If the 
user has been joined with a valid password, but has defaulted this at 
LOGON time, a special prompt will be issued conversationally to have 
this parameter entered. The addressing operand is processed next and 
fields in the ISA are set accordingly. Then if a charge number is supp- 
lied, it is placed in task commoni if the charge number has been 
defaulted, the charge number from the user table entry is placed in task 
common. The CSECT packing operand is checked, followed by the AUX space 
control parameter, the pristine parameter, and lastly the XIVM 
parameters. 

As each command operand is accepted, a part of the LOGON routine's 
initialization is performed. Thus the userid, password, and charge num- 
ber are moved one at a time to task common. The CSECT packing operand 
is moved into new task common and also into the dynamic loader's PSECT. 
If a PRISTINE LOGON has been requested the character string 'pristine' 
is moved into new task common. If any of the LOGON operands are inval- 
id, the user is informed of his error by an appropriate message and can 
reenter the entire operand string. . This prompting loop will continue 
until the system's prompting limit has been reachcBd; at this time the 
task will be abnormally terminated. 

When all parameters have been determined to be valid, the routine 
performs the following additional functions: 

1. Completes fields in the task status index (TSI) by moving userid, 
external priority, and authorization values into it; 

2. Adds further information to task common. Values are set to show 
the user's privilege class, completion of logging on, no confirma- 
tion messages and full messages . 

3. Calculates the internal priority of the task via a call to the 
SCHED SVC; 

4. Creates a job file control block CJFCB) for the user library (SYS- 
ULIB) through a call to DDEF. Note: This is not done if the user 
has specified PRISTINE=X in the LOGON operand string. 

After completing all its initialization functions, the routine issues 
two messages. One of these is to the task's SYSOUT noting date and time 
of LOGON. The other message is issued to the system log noting the 
userid, time, and date of LOGON initialization. Control is then passed 
to the calling routine. 



ERROR CONDITIONS ; The routine will check for acceptable operands and 
notify the user, through the User Prompter, of any errors found. For 

the messages issued, see the description of the LOGON command in Part I. 

The routine may issue these system errors: 
SYSER Code Severity ABEND Message Significance 

050506207 Minor DDEF UNABLE TO DDEF was unable to 

CREATE A JFCB FOR create JFCB for 
SYSULIB SYSULIB. 

050506208 Minor UNABLE TO WRITE THE An attc^mpt was made 

USER TABLE to write in user 

table but SYNAD 
exit was invoked. 
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050506211 Minor WO JFCB FOUND FOR 

USER TABLE 



No JFCB exists for 
user table in TDT 
chain. 



050506212 Minor 


RCR CLOSE FAILURE 


050506213 Minor 


RCR OPEN DETECTED 




SYSTEM ERROR 


SYSTEM CONTROL BLOCK 


USAGE: 



RCR CLOSE failed, 

RCR OPEN could not 
perform its function. 



Interrupt Storage Area (CHAISA) 

Task Status Index (CHATSI) 

System Common CCHASCM) 

Task Data Definition Table (CHATDT) 

Data Control Block CCHADCB) 

User Table (CHAUSE) 

Task Dictionary Table (CHATDH) 

Terminal Control Table (CHATCT) 

Task Common C CHAT CM) 

New Task Common (CHANTC) 

Shared Data Set Member (CHASDM) 

Active User Limits Table (CHAAUL) 



►LOGON2 Command Routine (CZBTB) 



This privileged routine completes the LOGON functions that must be 
done within the user's task, LOGON2 functions are accomplished in three 
main routines: TASKOPEN, TABINIT, and GATEOPEN. TASKOPEN opens all 
system data sets needed by the user's task (except SYSIN and SYSOUT) and 
finds all needed members. TABINIT retrieves members from SYS LIB and 
USERLIB, and constructs the command system dictionaries and tables in 
virtual storage. GATEOPEN opens the SYSIN and SYSOUT devices for non- 
conversational tasks and stores information needed by GATE, (See Chart 
CC. ) 

ENTRIES ; 

CZBTBl - L0G0N2 control 

CZBTB2 - TASKOPEN 

CZBTB3 - TABINIT 

CZBTB4 - GATEOPEN (SYSIN only) 

CZBTB 5 - VAM EODAD routine 

CZBTB6 - VAM SYNAD routine 

CZBTB7 - SYS LIB DCB 

CZBTB8 - USERLIB DCB 

CZBTB9 - PROCLIB SCAN 

CZBTBA - GATEOPEN (SYSOUT only) 

CZBTBB - EXPRESS BATCH 

CZBTBX - DICTEXTR 

MODULES CALLED: 



Dictionary Handlers: 
STARTVAR (CZASD2> 

KFR (C2ASD3) 



NEXTRFR (CZASD4> 



ENTR (CZASD5> 



Initializes the dictionary? called by CZBTB3. 

Uses the hash chain to locate an entry in the 
dictionary; called by CZBTBB and CZBTBX- 

Checks the next entry in the dictionary; called 
by CZBTBX. 

Makes a new entry in the dictionary; called by 
CZBTB3 and CZBTBX. 
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RELEASE CCZAFJ3) Release the SYSOUT JFCB; called by CZBTBA. 

DDEF CCZAEA4) Defines a new SYSOUT JFCB; called by CZBTBA. 

FINDJFCB CCZAEBl) Locates the SYSIN JFCBj called by CZBTB^i. 

User Prompter CCZATJl) Sends messages to the user, 

Various routines within LOGON2 also issue FIND, OPEN, GETMAIN, ESETL, 
SETL, GET, PUT, STOW, and CLOSE. CZBTBl executes a SIR macro, 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND, 

OPERATION: LOGON 2 is called to complete the logon functions. New Task 
Common CCHBNTC) is initialized; then all system data sets needed by the 
user tack are processed. LOGON2 processes four of the system data sets: 
SYSLIB, USERLIB, SYSIN, and SYSOUT. If the user has entered the "pris- 
tine" operand with his LOGON command, USERLIB DCBs are not processed in 
LOGON2; only SYSLIB DCBs are opened, otherwise both USERLIB and SYSLIB 
DCBs are processed. 

A pristine request will cause SYSLIB (SYSPRO) to be opened. LOGON2 
will istme a series of FIND command for the SYSPRO and the SYSPRD mem- 
bers of SYSLIB, so that the DCBs will be correctly initialized and the 
members ready for reference by the Procedure Expander CCZATE) . Where 
several members of the same data set are needed simultaneously, a DCB is 
generated for each member. A normal logon request will cause the above 
to be done, in addition the SYSPRD, SYSPRO, and SYSMLF members of USER- 
LIB will be opened, and the FIND command issued on the SYSPRO and SYSI^iLF 
members. SYSMLF must be initialized for reference by the User Prompter. 

LOGON2 then builds the combined dictionary in the Dictionary Handler 

(CZASD) PSECT. The origin of the dictionary is indicated by a one-word 
pointer and the pointer is saved in the external symbol CZASD9. The 
initial size of the dictionary is one page. If it must be ex|janded, it 
is done by a Dictionary Handler routine. GETMAIN is used to obtain the 

referenced pages and the CZASD9 pointer is updated accordingly. If the 
pristine option has been requested, the combined dictionary will be 
Duilt from SYSLIB only; otherwise, both SYSLIB and USERLIB information 
will be used. 

The combined dictionary contains entries from four main sources. 

1. The system procedure dictionary — SYSLIB (SYSPRD). 

2. The user procedure dictionary, if any exists — USERLIB (SYSPRD). 
If there is no user procedure dictionary, one will be constructed 
from the user's procedure library — USERLIB (SYSPRO) — if one 
exists. When built, this dictionary will be used and writtcin into 
USERLIB. 

3. The primary dictionary from the user profile (SYSPRX) . 

4. The primary dictionary from the system profile for a pristine task 
or if no user profixe exists. 

The input character translation table is moved into GATE'S PSECT 
CCZATC5) and the PCTCTT pointer is set. The output character transla- 
tion table is moved into GATE'S PSECT (CZATCT) and the PCTOCT pointer is 
set. The profile character and switch table is moved into new task com- 
mon. The SYSLIB ana USERLIB DCBs opened for SYSPRD and SYSPRX are then 
closed. 
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The ZLOGON procedure is executed using tlie OBEY macro instruction. 
Then LOGON2 enables the CSII Attention Handler CCZASBI) by a SIR macro. 

ERROR CONDITIOISIS : The following error conditions result in an ABEND: 

1. USERLIB CSYSPRD) - Invalid format. 

2. SYSULIB (SYSPRD) - Invalid hash pointer. 

3. USERLIB CSYSPRX) - Invalid format, 

4. Read past end of dictionary. 

5. VAM error, SYNAD routine called. 

6. USERLIB CSYSPRD) - Invalid nash pointer. 

7. Return code from FIND of USERLIB (SYSPRD) of 8, C, or 10. 

SYSTEM CONTROL BLOCK USAGE ; 

Editable Data Set CCHACVF) 
Data Control Block CCHADCB) 
Control Dictionary Header CCmADCT) 
Control Dictionary Entry (CHADEN) 

New Task Common CCHANTC) 

Profile Character and Switch Table (CHAPCT) 

Task Common CCHATCK) 

User Profile CCHAPFL) 

SymDolic Device Allocation Table CCHASDA) 

Task Data Definition Table CCHATUT) 

» KCAST/MCASTAB Routine 

This routine makes changes in the Profile Character and Switch Table 
as specified in the parameters of the MCAST command or macro instruc- 
tion. It also allows the user to specify, through the MCASTAB command, 
his own input and/or Output Translation Table. (See Chart CD.) 

ENTRIES ; 

CZATUl - MCAST macro entry 
CZATU2 - MCAST command entry 
CZATU3 - MCASTAB command entry 

M ODULES CALLED : Ttiis routine calls the User Prompter CCZATJl) via the 
PR^-PT macro to inform the user of error conditions during command 

processing. 

EXITS: This routine returns to its calling routine via the RETURN macro 
instruction. 

OPERATION: Tht* input parameter list for MCAST specifies the address of 
each replacement value for the Profile Character and Switch CCHAPCT) 
Table. For macro processing, this routine moves each value from its 
location in the calling module to the proper location in CHAPCT. For 
FtCAST command processing, this routine does some error checking. Unless 
the parameter string is nexadecimal, the parameter length must equal 1 
to be moved into the CriAPCT table. Only nine separate parameters will 
be processed. The MCAST command processor will translate hexadecimal 
input via its internal subroutine HEXTRAN. 

To process the MCASTAB command, this routine validates the input pa- 
rameter and, if valid and if the user wishes to specify his own table, 
sets the address to that table in CHAPCT. If the user wishes to discon- 
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nect his Input and/or Output Translation Table, this routine sets a 
pointer to the system's Translation Table in CHAPCT. 

ERROR CONDITIONS ; This routine prompts the user and exits if, during 
MCASTAB command processing, it recognizes an invalid parameter. During 
MCAST command processing, this routine prompts that it is ignoring any 
parameter found to be invalid but does not exit until the parameter list 
is exhausted. 

SYSTEM CONTROL BLOCK USAGE ; 

Profile Character and Switch Table (CHAPCT) 
Input Translation Table 
Output Translation Table 
TABLEA (CHAAAA) 



^ MODIFY Command Routine (CZAEG) 



Tills routine inserts, deletes, replaces, and reviews records in a 
VISAM data set or VISAM member of a partitioned data set; or builds a 
new VISAM data set or meiober. (See Chart CE-) 

ENTRIES ; 

CZAEGl ~ normal entry 
CZAEG2 - SYNAD entry 
CZAEG3 ~ EODAD entry 

MODULES CALLED ; 

NEXTPAR (CZAACl) Locates delimiters of input string and scan for in- 
valid characters. 

CHEKDS CCZAAC2) Validates data set name. 

ALFNUM CCZAAC3) Validates member name. 

CtlKNUM CCZAAC5) Validates line number. 

KSGWR (CZAAD2) Issues system messages. 

GATWR CCZATCl) lA(rites on SYSOUT. 

SYSIN CCZASC7) Reads data from the source list. 

FINDDS CCZAECl) finds or builds JFCB. 

DDEF CCZAEA^) Defines a new data set and creates JFCB for it. 

STOW (CZCOK) Updates POD when new member is created. 

GETMAIN CCZCGA2) Gets additional virtual storage. 

FREEMAIN CCZCGA3) Releases virtual storage. 

EXITS ; The routine normally returns to the calling routine via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION ; After operands are fetched using BPKD and validated using 
tne SCAN routines, an attempt is made to obtain a job file control block 
(JFCB) for the data set. If the data set has been previously defined or 
cataloged, a JFCB will be created for it. In either case the JFCB must 
show that the data set has VISAM or VAW partitioned organization and is 
write-accessible to this user. 
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When the JFCB is successfully located or created, the data set is 
opened with a provision for both reading and writing by the user. If 

the data set is partitioned, the partitioned organization directory 
CPOD) must be searched for the specified member name. When the data set 
or member name is found, a check is made to ensure that it has VISAM 
organization- If the name is not found, a new data set or member is 
created with this name and VISAM organization. 



Input records contain 
a time, via SYSIN, until 
followed by a command) i 
X% is found. riexadecima 
character (for example, 
ters found within the he 
character for character. 
data set is closed. For 
reflect any alterations 



ing the user's modifications are obtained one at 

the end-of-input record C%E or an underscore 
s reached. Input characters are EBCDIC unless a 
1 mode is assumed until a nonhexadeciraal 
G) or end-of-block (EOB) is found. The charac- 
xadecimai string are converted to hexadecimal. 
When the end-of- input record is reached, the 
a partitioned data set, the POD is updated to 
before the data set is closed. 



Modifications are effected by employing the user-supplied key (a linc^ 
number, if the data set is in line format) to point out the location of 
the specified record (line) . When the first character of input supplied 
by the user is numeric, the record is written into the data set as an 
insertion or replacement for an existing record. When the first 
character supplied by the user is D, the record at the specified loca- 
tion is deleted from the data set. When the first character is R, the 
record at the specified location is reviewed (presented to the useer) . 
If review of all modifications is requested, the existing record which 
is being replaced or deleted is presented to the user before the actual 
modification is done. In the case of an insertion, the record immedi- 
ately preceding the insertion is presented. In confirmation mode the 
new record (either an insertion or replacement) is also presented. 

When a new nonline data set is to be created, an additional page is 
added to MODIFY 's virtual storage since the nonline input record may be 
as much as 4K bytes in length. This type of data set is built of suc- 
cessive readings of input records containing continuation characters. 
To build a line data set, each input record is processed individually 
with continuation characters disregarded. 

ERROR CONDITIONS ; The routine checks for acceptable operands and noti- 
fies the user, through MSGWR, of any errors found. For messages issued, 

see System Messages . 



The routine may issue these system errors: 
SYSER code Severity ABEND Message 

050503102 Minor 



SYSTEM ERROR. 
RETURN CODE 



INVALID 



Significance 

Invalid return code 
from called module. 



050503104 



Minor 



SYSTEM ERROR. 
TROUBLE IN WRITE 
MACRO 



SYNAD error when 
trying to write re- 
placement line in 
data set. 



050503105 



050503108 



Minor 



Minor 



SYSTEM ERROR. 
TROUBLE IN WRITE 
MACRO 

SYSTEM ERROR. 
MEMBER NAME 



SYNAD error when 
trying to write in- 
sertion in data set. 

No left parenthesis 
in member name. 
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SYSTEM CONTROL BLOCK USAGE ; 

Task Common (CHATCM) 

Task Data Definition Table (CHATDT) 

Data Control Block (CHADCB) 

^ MSGWR (Message Write) Routine (CZAAD) 

This routine issues system messages and, if requested, fetches 
responses to those messages, using the facilities of the USER PROMPTER 
(CZATJ). (See Chart CF,) 

ENTRIES: 

CZAAD2 - privileged entry 
CZAAD3 - nonprivileged entry 

MODULES CALLED ; 

User Prompter (CZATJ) Issues messages and obtains response (if any).. 

EXITS : The routine returns to the calling routine, via the RETURN 
macro, 

OPERATION ; MSGWR is entered to issue system messages. Either of two 
entry points is used, depending on the object code generated by the 
MSGWR macro. The macro expansion checks whether the macro user is pri- 
vileged or not, then generates linkage to MSGWR accordingly, 

MSGWR converts the parameter list it receives to a form compatible 
with that which the PRMPT macro would generate for an equivalent call to 
USER PROMPTER. MSGWR then branches to the USER PROMPTER, who handles 
the actual message output and any expected response. 

After the message has been issued, via USER PROMPTER, the response 
(if any) is collected and MSGWR returns to its caller. A return code is 
set to indicate results. 

ERROR CONDITIONS : A hexadecimal code will be returned in register 15: 

Code Significance 

00 No error detected. 

0^ Truncation of output to terminal; or truncation of response from 
terminal. Truncated response not moved to user-provided area. 

08 I/O terminated by ATTN interruption. 

SYSTEM CONTROL BLOCK USAGE: None. 



^ Place Address in AIR Table (CZACS) - PAIR 



This routine adds and removes addresses of interlock release routines 
in the ABEND Interlock Release (AIR) Table. PAIR also controls an area 
within the AIR table for temporary storage of interlock release routine 
control information. (See Chart CG.) 

INPUT ; Register 1 points to a three-word parameter list. 

Word 1: VCON of interlock release routine. 

Word 2; RCON of interlock release routine. 
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Word 3: CZACSl returns the address of a doubleword that the caller may 
use to store variable information. C2ACS2 uses the contents of 
this word (the address CZACSl had returned) to determine which 
entry to delete from the AIR table, 

ENTRIES : 

CZACSl - entry to place address in table 
CZACS2 - entry to remove an address from table 

MODULES CALLED : 

GETMAIN (CZCGA2) Obtains additional virtual storage. 

EXITS ; This routine returns to the calling routine, via the RETURN 
macro instruction. 

OPERATION : To place an interlock release routine address in the AIR 
table, PAIR searches the table until it finds a pair of zero AIRVCN and 
AIRRCN fields. It then places the VCON address of the interlock release 
routine in the AIRVCN field, and the RCON address of the routine in the 
AIRRCN field. The temporary storage area (AIRINF) address associated 
with the AIRVCN and AIRRCN field is placed in the input parameter list 
and control is returned to the calling routine. 

To erase an interlock release routine address from the AIR table, 
CZACS2 verifies the address of the AIRINF field which it gets from the 
third word of the parameter list and then sets this field to zero along 
with its associated AIRVCN and AIRRCN fields. Control is then returned 
to the calling routine. 

ERROR CONDITIONS : A hexadecimal code is returned in register 15: 

Code Significance 

04 No space available in AIR table (for CZACSl) 

08 AIRINF address invalid (for CZACS2) 

OC Parameter list not on a word boundary 

10 Invalid or zero parameter passed to PAIR routine. 

SYSTEM CONTROL BLOCK USAGE: ABEND Interlock Release Table (CHAAIR) 



^ PERMIT Command Routine (CZAFH) 



This routine enables a catalog owner to authorize shared use of some 
or all of his cataloged data sets by some or all other users. The owner 
may subsequently change or retract such authorization. (See Chart CH.) 

ENTRY ; CZAFHl - normal entry 

MODULES CALLED ; 

NEXTPAR (CZAACl) Gets command operand. 

CHEKDS (CZACC2) Validates data set name. 

SHARE (CGCFS) Adds user identifications to sharer's list. 

UNSHARE (CGCFV) Removes user identifications from sharer's list. 

MSGWR (CZAAD2) Issues system messages. 

EXITS; The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 
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OPERATION ; The first operand read in is either a data set name or the 
word ♦ALL, which indicates that the user is offering to share all of his 
cataloged data sets. 

The sharer's identification is next in the input string, however the 
sharing access is checked first. It is validated and a coded version of 
it is stored in the parameter list being built for catalog services. If 
tne access qualifier is R, meaning that sharing privileges are being 
revoked, PERMIT calls UNSHARE rather than SHARE. If the access qualifi- 
er is defaulted, this is so indicated and the last entered access on the 
sharing list being updated is used. 

The next operand shows the identifications of the users being granted 
access. If none exists and the owner indicates he has purposely 
defaulted the operand, or if the operand is *ALL, the universal sharing 
mode is indicated in the parameter list being built. If a list of user 
identifications has been entered, each userid is read, validated, and 
then added to the sharer's list. A count of the number of sharers 
(which is limited to 25 for each PERMIT command) is kept and supplied, 
along with the address of the start of the list, as input to SHARE or 
UNSHARE. 

Either SHARE or UNSHARE makes the appropriate changes in the owner's 
catalog. Note that PERMIT calls the catalog service's SHARE CCGCFS) , 
which should not be confused with the SHARE command CCZAFI) . 

ERROR CONDITIONS : The routine checks for acceptable operands and noti- 
fies the user, through MSGWR, of any errors found. For messages issued, 
see System Messages . 



The routine may issue these system errors: 
SYSER Code Severity ABEND Message 

Minor 



050505702 



050505703 



Minor 



OWNER ID NOT IT 
CATALOG 



INVALID RETURN CODE 
FROM CATALOG SERVICE 
ROUTINE 



Explanation 

Owner's user identi- 
fication not found 

in catalog. 

SHARE or UNSHARE re- 
turned an invalid 

code. 



050505704 



Minor 



IMPROPER HANDLING OF 
STATE AND MODE BY 
PERMIT 



SHARE return code 
invalid. 



05050 5705 Minor INVALID RETURN CODE 

FROM NEXTPAR 



NEXTPAR return code 
invalid. 



050505706 



Minor 



INVALID RETURN CODE 
FROM CHECKDS 



CHECKDS return code 
invalid. 



SYSTEM CONTROL BLOCK USAGE 

Task Common CCHATCM) 

Interrupt Storage Area (CHAISA) 

Data Control Block (CHADCB) 



►POD? Command Routine (CZCOX) 



This routine is used to print the member names Cand, optionally, the 
aliases and other member-oriented data) of individual members of a cata- 
loged VPAM data set. (See Chart CI.) 
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ENTRY ; C2C0X1 - normal entry 



MODULES CALLED : 
User Prompter CCZATJ) 
GATE CCZATCl) 
LOCATE CCGCFLl) 

GETMAIN CCZCGA2) 

FREEMAIN CCZCGA3) 

Set Interlock CCZCOHl) 

Release Interlock CCZCOIl) 

FINDDS CCZAECl) 

RELEASE CCZAFJ3) 
RELEAS CCZCADl) 
CHEKDS CCZAAC2) 



Writes diagnostic messages on task SYSOUT. 

Issues output to task SYSOUT via GATWR. 

Determines the accessibility of the 
requested data set. 

Acquires a work area in storage for the POD 
and optionally the PMD. 

Frees the work area previously acquired. 

Denotes the RESTBL of the requested data 
set being interlocked. 

Removes the interlock from the RESTBL of 
the required data set. 

Locates the JFCB for the requested VPAM 
data set using dsnaroe. 

Releases the JFCB and private devices. 

Releases private device. 

Validates input dsname. 



EXITS: All exits are to the Command Analyzer and Executor CCZASAl) via 
type- I linkage. 

OPERATION : Upon entry, POD? finds a pointer in register 1 to a four- 
word parameter list. The first word contains the dsname address; thc^ 
second word is the address of the DATA option; the third word contains 
the address of the ALIAS option; and the fourth word is the address of 
the module option. An analysis is made of the parameters. Diagnostics 
are issued and the routine returns if any of the parameters are inco- 
rrect. If they are all correct , LOCATE is called to see if the data set 
is accessible to the user; if it is not accessible, a message is issued 
via User Prompter and the routine returns. Otherwise, FINDDS is called 
to create or locate a JFCB.. A DCB is provided in the POD PSECT, and its 
ddname is set to that of the JFCB. The OPEN subroutine is then called 
to provide a link between the DCB and the RESTBL DCB header. The POD 
address is acquired from the DCB header, the data set is write inter- 
locked, virtual storage space is allocated, the POD is moved into the 
work area, and the interlock is released. 



The hash ta 
each hash chai 
found, it is p 
niodule informa 
ber names have 
closed. If a 
mounted and no 
device. The a 
and the routin 



ble entries of the POD are examined for hash chaining, and 
n is examined for member entries. As each member is 
rinted along with POD and user data, alias entries and 
tion, if these options have been selected. After all mem- 
been printed, the user is informed and the data stit ir. 
JFCB was created, it is released. If no device was 
JFCB created, a call to CZCADl is made to free thf^ 
rea required for the POD, and optionally the PMD, iu tr^^ed 
e returns to the Command Analyzer and Executor. 



ERROR CONDITIONS : User Prompter is called to issue diagnostic messages 
if any of the following conditions exist: 

1. No data set name supplied. 
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2. Data set does not exist. 

3. Data set cannot be shared by oser. 

4. Data set not partitioned. 

SYSTEM CONTROL BLOCK USAGE : 

Catalog SBLOCK CCHACCC) 

Data Control Block CCHADCB) 

Data Control Block Header (CHADHD) 

Partitioned Organization Directory CCHAPOD) 

POD Alias Descriptor (CHAPOE) 

POD Member Descriptor (CHAPOM) 

RESTBL Header (CHARHD) 

Task Common CCHATCM) 

Task Data Definition Table CCHATDT) 

Task Dictionary Table CChATDY) 

►PRMPT Command Routine (CZBTC) 



PRMPT allows the use^r to display the standard or extended form of a 
message in SYSMLF, the message file- He may insert up to five parameter 
strings if the message has variable parameters. (See Chart C J . ) 

ENTRIES : 

CZBTCl - normal entry 
CZBTC2 - BPKD macro entry 

M ODULES CALLED : 

User Prompter CCZATJl) Finds and writes the message. 

EXITS : The routine returns to the calling routine, via the RETURN macro 
instruction- 

OPERATIQN : The parameters from the BPKD macro are used to issue a PRMPT 
macro with up to five inserts. If the MSGID is null, a blank f^GID is 
assumed. If it has less than eight characters, the field is padded with 
blanks. If it has more than eight, the excess is truncated. The 
inserts are checked to see if any exceeds the length limit of 4-0 charac- 
ters. If so, the insert is truncated. There are no error return codes. 

ERROR CONDITIONS : None of the user prompter errors are checked. 

SYSTEM CONTROL BLOCK USAGE: None. 



^ PRQCDEF Routine (CZATP) 



Tnis routine, called by the Command Analyzer and Executor when either 

a BUILTIN or PROCDEF command is recognized, maintains the procedure 
library and makes corresponding changes to the combined library. (See 

Chart CK. ) 

ENTRIES : 

CZATPl ~ entry point for either a BUILTIN or a PROCDEF command 

CZATP2 - an internal symbol which is passed as the END entry during an 

LPCINIT call 
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FiODULES CALLED : 

Dictionary Handlers CCZASD) : 

STAKTVAR (CZASD2) Initializes a VM page in dictionary format. 

Rf'R CCZASD3) Finds a PROCDEF or BUILTIN entry. 

NEXTRFR CCZASD4) Adds and deletes entries from the dictionary at 

the direction of the procedure. 

ENTR CCZASD5} Adds an entry to the dictionary. 

User controller CCZAMZ): 

LPCINIT CCZASWl) Initializes the procedure as an LPC. 

LPCEDIT CCZASW4) Begins execution of Text Editor coirimands . 

FINDDS CCZAECl) Finds or creates a JFCB. 

DDEF CCZAEAil) Creates JFCB if FINDDS fails to locate one for 

the input dsname. 

CHEKDS CCZAAC2) Validates the data set name. 

User Prompter CCZATJl) Informs user of error situations. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION : The principal activities are carried on at entry point 
CZATPl. After parameter validation, LPCINIT is called to activate the 
LPC for PROCDEF. On the first call the SYSPRD member is erased from 
USERLIB if one exists. If the data set to wnich the BUILTIN or PROCDEF 
is to be added is not USERLIB, a call to CZASD2 is made to initialize a 
page, obtained by GETMAIN, for use as a variable length dictionary. 
This dictionary will contain the SYSPRD member for the BUILT IN/PROCDEF. 
On each call, a line corresponding to the BUILTIN or PROCDEF line is 
built and written into SYSPRO as line zero of the corresponding region, 
and a corresponding entry is added to the combined dictionary. 

Transactions are enabled and the routine to modify the dictionary is 
entered. The end entry for CZATP is CZATP2. At this entry CZATP iscues 
a SETL to line zero of the current region to determine if it still 
exists. If not, the corresponding dictionary entry is removed. The 
transaction table is marked as processed. SYSPRO is cloried to save a 
PROCDEF if one was created - 

ERROR CONDITIONS : The routine checks for any name or symbol which ii> 
too long, and the situation where there is no name for PROCDEF or FU.U I.,- 

TIN. If one of these erxors or a System Fault occurs, this routine 

calls the User Prompter to print an appropriate mc^ssage. 

SYSTEM CONTROL BLOCK USAG E: 

Control Dictionary Entry CCHADEN) 
Control Dictionary Heading CCHADCT) 

Data Set Control Block CCiiADCB) 
New Task Common (CHANTC) 

Task Data Definition Table CCHATDT) 
Transaction Table (CHATRN) 



^ Procedure Expander Routines (CZATE) 



The Procedure Expander is called by the Command Analyzer and Kxecutor 
when it identifies a verb as a procedure name. The Procedure Expander 
consists of seven modules which: 
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• Locate the procedure in the Procedure Library CPROCLIB). 

• Move the procedure into the Source List (SL) . 

• Construct (if parameters are present) a table of parameters, equiva- 
lent names, and calling values, with default values inserted where 
required. 

• Substitute calling parameters in the text as the procedure is moved 
into the Source List. (See Chart CL. ) 

ENTRIES ; Each of the seven modules is defined by one entry point: 

CZATEl - entry into main line processing 

CZIITE2 - BUILDLIST entry 

CZATE3 - LISTEQ entry 

CZATE4 - DEFSEARCH entry 

CZATE5 - procedure parameter scan entry 

CZATEL - entry into the procedure expander from routines that have been 

entered via macro 
CZATEl - subpararaeter search entry 

Only CZATEl and CZATE6 serve as entry points to thi? Procedure Expander 
from routines outside of it. 

MODULES CALLED ; The Procedure Expander, during its main line proces- 
sing, calls three of the other six modules within itself: 

BUILDLIST CCZATE2) Builds an ELIST and ILIST from dummy parameters. 

LISTEQ CCZATE3) Builds a PLIST from the calling parameters. 

DEFSEARCH {CZATE4) Inserts default values in the PLIST if no calling 

parameters are present. Also called by LISTEQ. 

In addition, the BUILDLIST routine and the LISTEQ routine call the fifth 
Procedure Expander routine (CZATE5) to find and isolate each procedure 
parameter in turn and put it into the Source List. 

When entered at CZATE6 , Procedure Expander processing includes a call 
only to LISTEQ. The subparameter processing routine, CZATEIO, is a log- 
ical extension of LISTEQ and is called only by it. 

The modules Coutside themselves) upon which the Procedure Expander 
routines rely are: 

Source List Handlers; 

Buffer Fetch CCZASC2) Extends the size of the source list. 

Update CCZASC6) Updates the source list pointers. 

Dictionary Handlers: 

RFR (CZASD3) Searches dictionary for parameter names. 

GDV CCZASDX) Determines a default value. 

Verb Scanner CCZASA2) ' Isolates the verb for examination. 

User Prompter CCZATJl) Writes messages to the user. 

The Procedure Expander routines also use OPEN, FIND, READ, GET, ESETL, 
and HASH. 
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EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION ; Upon entry to the Procedure Expander, a search for the pro- 
cedure in the PROCLIB is initiated via the READ macro instruction, after 
assuring that the USERLIB DCB is open (if the procedure definition -- 
PROCDEF — resides in USERLIB, If the procedure does not exist, an 
immediate return is made to the calling routine with a return code that 
indicates this fact. If the search was successful, a test is made to 
determine if there is enough space in the source list for the proce- 
dure's first line. If not, a Source List Handler is called to expand 
the SL by another page. In either event, the current end point (EP) 
value is saved for a later test, and a P marker is placed in the SL at 
the saved EP address. The current start address CSA> value, which 
points to a position past the identified name in the SL, is inserted 
into the P marker. 

The procedure's first line is moved into the SL after the P marker, 
via the GET macro instruction. If the procedure is null, the SL is left 
in its original state, and control returns to the calling routine. 
Otherwise, the EP, SA, and available byte count are updated in the SL, 
and the SA value is saved. Also, the IDENT field of this line is saved 
in order to determine the end of this procedure. The Procedure Expander 
now calls the Verb Scanner to determine if the first statement is PA,RAM. 

The lack of a PARAM statement results in moving the procedure into 

the SL one line at a time. Initially, an E marker, which contains a 
pointer back to the P marker, is placed at the end of the first line. 
The EP and available byte count are reset, and the value of EP is saved. 
A test is made to determine if there is enough room in the SL for the 
next line. If not, the SL is extended another page, via the Source List 
Handler routine. In any event, GET is used to obtain the next line, and 
move it into the SL. If an EODAD occurs, or the IDENT field is found 
not to match the initial IDENT value, the process is complete, and an 
exit is made after resetting the SA to the first byte after the P mark- 
er. Otherwise, an E marker, with a pointer set to the value of the pre- 
vious line's E marker pointer, is placed at the end of the current line. 
The previous E marker pointer is reset to the previously saved EP value; 
that is, the address of the new line. The EP and available byte count 
are updated after saving the current EP, and the process is repeated. 
The last line, whose E marker points back to the P, or beginning marker, 
is an exception. If during the process, the source list must be 
expanded, the last E marker on the page will point to the input area on 
the new page. 

If the first line is a PARAM statement, the end result is the same; 
however, the expansion process is different. Initially, a test for a 
line continuation marker is made. If one exists, the next line is 
obtained via the GET macro instruction, and stored in the SL after the 
first line's E marker (current EP) • A new E marker is placed after the 
continuation line. The pointer in the previous E marker is placed in 
the current E marker; then the previous E marker is changed to point to 
the next line. The EP and available byte count are updated, and the 
process is repeated until all continuation lines of the PARAM statonent 
reside in the SL. The last EP is saved for future linkage of succeeding 
procedure lines. Due to the previous Verb Scan call, the SA is current- 
ly set to permit an immediate dummy parameter scan. 

BUILDLIST Routine : To analyze the procedure's dummy parameters, control 
passes from the main line routine to the BUILDLIST routine CCZATE2}. 
BUILDLIST calls the Procedure Parameter Scan routine (CZATE5) to: 

» Isolate (search for a delimiter) the parameter beginning at the cur- 
rent start address (SA) of the source list CSL) . 
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• store the parameter, preceded by a one-byte length characteristic, 
in the SL at the current end point (EP>. 

• Update the SA, EP, and available byte cotint in the SL accordingly. 

• Determine whether to strip the parameter's quotation marks before 
storing them in the SL- 

• Return the address of the parameter's new SL location; return a 
signal identifying it as a normal or special C quoted) string, and a 
return code (RC) designating its delimiter (= or , ). 

On return, BUILDLIST scans and identifies the parameters as to type, 
constructing a TYPE table in which each parameter is designated as norm- 
al (N) or special (S) , where the special form is a quoted string. 

In addition to scanning and identifying the parameters, BUILDLIST 
constructs two pointer tables, the ELIST and the ILIST. 

ELIST Contains the address of each external parameter name. 

ILIST Contains the address of each name represented in the keyword 
form. 

Of course, the ILIST may not have all its entries filled. BUILDLIST now 
returns to the main line processor. 

The main line Procedure Expander now fills vacant ILIST entries with 
the corresponding ELIST values, to obtain a final table with pointers to 
parameters which will be used in substitution procedures. An additional 
table containing the first letter of each parameter in the ILIST is con- 
structed. This table will be used to make tests for the possible exis- 
tence of a dummy parameter in the procedure text. The EP is reset to 
£P;2 in order to provide for an extension of the SL with calling 
parameters. 

The Procedure Expander now tests for the presence of calling parame- 
ters. If there are any calling parameters, the processor links to the 
LISTEQ routine CCZATE3) to build a table of pointers to the calling pa- 
rameters CPLIST); if not, the processor links to the DEFSEARCH routine 
(CZATE4) to build the PLIST from default values. 



LISTEQ Routine ; After first clearing the PLIST, LISTEQ calls the Proce- 
dure Parameter Scan routine (CZATE5) to isolate a parameter Cas it did 
for BUILDLIST, above). It, on return, LISTEQ finds the parameter null 
it links back to CZATE5. This process continues until a non-null frag- 
ment is found or the end of the input string is reached. 

If the parameter is not null, the delimiter becomes important in 
determining the type of keyword at hand. If the delimiter is an equals 
sign, LISTEQ clears the keyword list CELIST) index, and begins searching 
for a match between the input parameter and the ELIST entries. Errors 
exist if (1) the ELIST is exhausted before a match is found, or C2) an 
asterisk precedes the match in the ELIST- Errors are marked by flag 
settings and may result in the user being prompted. 

If a match is found, the ELIST entry is checked further for length, 
subparameters, and indefinite form. Flags are set representing the con- 
ditions found. In all cases, error and non- error, LISTEQ ends its 
search loop by returning to the point in its logic where it calls CZATE5 
to isolate the next parameter. 
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When the deliirdter is not an equals sign, LISTEQ makes different, 
tests- If the input value is the mate of an invalid keyword, it sets a 
flag, and (barring end of input string) loops back for another call to 
CZATE5. If the input is the mate of an asterisk keyword, it is invalid; 
the CZATE5 loop continues. The parameter fragment may have been pre- 
ceded by an equals sign. If it is not , LISTEQ begins searching for an 
asterisk keyword that .matches the input parameter. If one is found, its 
location in the PLIST is noted and the CZATE5 loop rejoined. If the 
ELIST entries are exhausted before a match, but the keyword positions 
are not exhausted, or if the parameter was preceded by an equals sign, 
further tests are made for indefinite form. Occurrence of a parameter 
in the indefinite form results in the creation of an indefinite form pa- 
rameter sublist. Then, if the parameter string is not exhausted, LISTEQ 
calls CZATE5 again and continues processing. 

When the parameter string is exhausted, LISTEQ may, if necessary, 
call DEFSEARCH to seek synonyms, and will, on return, link to the Sub- 
parameter Search routine CCZATEIO) to seek subparameters . 

Subpararoeter Search ; This routine is a logical extension of LISTEQ. It 
uses LISTEQ* s recursion index to orient itself. This routine loops 
through the ELIST/PLIST index, locating, identifying, and flagging sub- 
parameters, if they exist, and creating a subparameter list for analysis 
by LISTEQ. When the keywords are exhausted, this routine finally exits 
to LISTEQ, 

When the Subparameter Search routine returns to the LISTEQ routine 
(after all parameters are exhausted) , LISTEQ sets its return code and 
returns to its calling routine. This may be the main line processor or 
it may be that part of the Procedure Expander defined by entry point 
CZATE6. In creating the PLIST, LISTEQ has ensured that the procedure's 
calling parameters and subparameters have a one-to-one correspondence 
with the entries of a desired BUILTIN or textual procedure dummy table. 

DEFSEARCH Routine : This routine is used to determine if default values 
exist for dummy parameters without corresponding call values, and, if 
they do, to provide default substitutions. DEFSEARCH tests each entry 
in the calling parameter pointer table (PLIST), and, if it is zero, 
identifies the values through the corresponding entry in the dummy pa- 
rameter pointer table (ELIST). This value is passed to the Dictionary 
Handler routine CCZASD3), which searches for the default value. 

Such a default value, if found, is moved (preceded by its length 
characteristic) by DEFSEARCH into the Source List (SL) at the current 
end point (EP) , and a pointer to the value is placed in the PLIST. The 
EP and available byte count (ABC) in the SL are updated to reflect the 
length of the default value. When PLIST entries have been test€?d 
(whether or not default values are found) , DEFSEARCH returns to this 
calling routine. This can be either LISTEQ or the main line processor. 

Mainline Processing Continues ; The Procedure Expander now moves the 
entire procedure from the PROCLIB into the SL, one character at a tine. 
Each character is initially tested to determine if it is an end of line 
(EOL). If not, it is then compared with the first character of each 
dummy parameter in the ILIST (previously constructed first character 
table). If no match occurs, the character is stored in the SL; the KP 
and available byte count are updated, the PROCLIB character pointer is 
advanced and control seeks to obtain the next procedure character. Had 
a first character match occurred, the entire dummy parametc^r (obtained 
via a pointer in the ILIST) would be compared with its corresponding 
number of characters in the PROCLIB. If a match does not occur, the 
logic for no match on the first character is followed. If a match did 
occur, this indicates a string substitution and the available byte count 
is tested to determine if there is enough room in the SL for the string 
(length characteristic is retrieved from the SL preceding the calling 
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parameter to be substittited) . If required, the SL is extended by anoth- 
er page, via the GETBUFSL routine. In any event, the corresponding cal- 
ling parameter is obtained, via the pointer in PLIST, and inserted into 
its new position in the SL. The pointer to the PROCLIB text is updated 
to the next character after the dummy parameter, the EP, and available 
byte count are updated and control returns to interrogate the next PROC 
character. 

As previously mentioned, while the above logic is used to move the 
procedure into the SL, each character is tested for an EOL, If an EOL 
is encountered, an E marker is placed in the SL at the current EP, and 
the previously saved EP is tested to determine if it points at the P 
marker. This test will be true only for the first procedure line after 
the PARAM statement, and its E marker will contain a pointer back to the 
P marker. The new EP is saved to allow for the entry of additional 
lines J the previous pointer will assume the saved EP value. This will 
result in a string of lines with markers pointing to their successors 
with the exception of the last line which will point to the P marker. 
After each line is properly entered and connected in the SL, a test is 
made to determine if a EODAD or IDENT not- equal condition has occurred 
(the comparison is made for the previously saved IDENT value). If not, 
control passes back to process the first character in the next line; 
otherwise, the process is complete, and the SA is updated to point back 
to the first executable procedure statement; control returns to the cal- 
ling routine. 

Entry at CZATE6 ; The Procedure Expander, at this entry point, accepts 
parameter analysis requests from routines which have been entered via 
macros. Three parameters are passed to it: the address of the BPKDS, 
the address of the string to be scanned, and a flag governing dictionary 
reference. Upon entry, this routine sets a flag indicating that no 
PRMPT macros should be issued. If the BPKDS and string prove valid, 
they are used to form a parameter list for LISTEQ. This routine then 
calls LISTEQ. On return it exits, passing the return code from LISTEQ 
to its calling routine. This routine provides its own return codes if 
the BPKDS is invalid (X"C»), the string is invalid CX*8«), or the dic- 
tionary search parameter is invalid CX'IO'). In these three cases, this 
routine does not call LISTEQ. 

ERROR CONDITIONS ; If the main line processor discovers that the 
requested procedure does not exist in the PROCLIB, a return code desig- 
nating this fact is sent immediately to the calling routine. The Proce- 
dure Expander calls the User Prompter CCZATJl) to send a diagnostic mes- 
sage to the user if: 

1. Parameter line is erroneous. 

2. More calling parameters than dummy parameters when the PREXPAND 

flag is not set to •¥'. 

3. A synonym loop occurs while BUILDLIST is scanning the parameter 
line values. 

In these cases the command is canceled. In addition, a message is sent 
to the user and processing continues, under the following conditions: 

1. BUILDLIST finds that a SYN/DEFAULT parameter on the left side of an 
equals sign is a quoted string. The parameter will be treated as 
an unquoted string. 

2. BUILDLIST discovers that, in a string with more than 2 parameters, 
all parameters are equal. The last parameter has precedence in the 
I LIST. 
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3. BUILDLIST or LISTEQ discovers that the maximum number of parameters 
allowed in a list has been exceeded. Any excess parameters are 
lost, 

^. LISTEQ, while constructing the PLIST, notes redefinition of any pa- 
rameter. The new definition has precedence. 

5. LISTEQ discovers that a calling parameter keyword does not exist in 
the ELIST. The parameter is deleted from the parameter list. 

SYSTEM CONTROL BLOCK USAGE : 

Data Control Block CCHADCB) 

Control Dictionary Entry (CHADEN) 

Sublist Header CCHASLH) 

Source List i^arker (CHASLM) 

Source List Page Header CCHASLP) 

New Task Common (CHANTC) 

Profile character and Switch Table CCHAPCT) 



^ QUIT Command Routine (CZAFL) 



This routine processes the QUIT Command, which may t>e issued only by 
a system manager or administrator. yUIT removes the specified user from 

the system, and erases, reassigns, or stores (on a private volume) his 
data sets. In nonconversational mode, all the user's data sets are 

erased. (See Chart CM.) 

ENTRY: CZAFLl - normal entry 

MODULES CALLED : During its processing, QUIT calls some of these modules 
several times. 



NEXTPAR (CZAACl) 
ALFNUM (CZAAC2> 
DDEF (CZAEA5) 

FINDJFCB CCZAEBl ) 
FINDDS (CZAECl) 

LOCATE (CZCFL) 
CATALOG (CZAEI3) 
ERASE (CZAEJ6) 
Vam Tapes (CZAET6) 

RELEASE (CZAFJ3) 

MSGWR (CZAAD2) 

User Prompter (CZATJl) 
DELVAM CCZCFTl) 



Locates and validates operands and delimiters. 
Validates userid. 

Defines JFCBs for data sets to be manipulated. 

Locates JFCBS for SYSUCAT, etc. 

Locates JFCB for a data set, for example, a 
JFCB that DDEF has just created for a data set 
to be recataloged. 

Finds all the user's data sets. 

Hecatalogs a data set. 

Erases a data set. 

Ws a data set from public storage onto a priv- 
ate volume. 

Releases the JFCB of a data set QUIT has worked 
with. 

Prompts the user for additional or missing 
information; prints error messages. 

Prints error messages - 

Deletes catalog entries, as well as the user 
entry from the User Table. 



146 



DELREC CCZCPHl) Deletes SYSSVCT entry. 

The QUIT command processor also uses OPEN, READ, WRITE, TSEND, RELEX, 
STOW and FREEMAIN during its operation. 

EXITS : The QUIT routine normally returns to its calling routine, via 
the RETURN macro instruction. 

OPERATION : The routine first validates the user identification (userid) 
supplied as the command operand. If the command was issued by a system 
administrator, the first two characters of the userid are checked to 
ensure that they match the initial two characters of the administrator's 
userid; only the administrator who joined the user can quit him. 

The User Table is now opened, and the entry corresponding to the 
userid operand is read. QUIT sets an indicator in the entry so that the 
user cannot initiate any new tasks, then checks the entry to see if the 
user has any currently active tasks. If he does have an active task, a 
message is issued to the administrator (or manager), asking if he wants 
to cancel the QUIT command — by pressing his ATTENTION key ~~ or wait 
until the user's tasks are completed. If he chooses to wait, a TSEND 
SVC is issued to end the time slice. When control returns to QUIT, the 
user entry is again tested to see if the user has an active task. Pro- 
cessing of the QUIT command continues when the user's tasks have been 
corapleted. 

LOCATE is called to obtain a list of the user's data sets, and the 
administrator (or manager) is asked if he wants to erase all of those 
data sets or dispose of them individually. If he chooses to erase them, 

all data sets owned by the user and residing on direct access volumes 
will be eliminated through successive calls to ERASE. Other data sets 
are ignored. 

If individual disposition is selected, QUIT presents the data set 
names one by one, and the administrator indicates his choice for each: 
erase, recatalog, or copy onto a private direct access volume. 

An erase request is processed by a call to ERASE, provided the data 
set is owned by the user and resides on direct access storage. Other- 
wise, the erase request is ignored. 

If the data set is to be assigned to another user's catalog, QUIT 
fetches ana validates the userid of that other user and the new name 

under which the data set will be cataloged. DDEF is then called to cre- 
ate a JFCB; FINDDS locates this JFCB; and CATALOG then catalogs the data 
set, under the new name, in the specified user's catalog. The data set 
is closed through a call to RELEASE. 

For a copy request, QUIT fetches and validates the identification of 
the volume upon which the copy is to be written, the name to be assigned 

to that copy data set, and the type of volume (2311/231*4). DDEF and 
FINDDS are then called to create and locate JFCBs for the old data set 
and the copy, W is called to make the copy, and RELEIASE closes the 
copy. If the old data set is on direct access storage, it is eliminated 

by a call to ERASE; otherwise, it is closed by RELEASE. All copied data 

sets are given to TSS*****. 

When disposition of the user's data sets is completed, the userid is 
eliminated from the catalog — thus eliminating that user's catalog; the 
user's entry is deleted from the User Table, and the table is closed; 
and, finally, the work area obtained by LOCFQN is released. Control 
then returns to the calling routine. 

ERROR CONDITIONS ; The routine checks for acceptable operands and noti- 
fies the administrator (or manager), through MSGWR, of any errors found. 
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SYSTEM CONTROL BLOCK USAGE ; 

Data Control Block CCHADCB) 

Catalog TBLOCK (CHATBD) 

Task Common CCHATC^) 

System Common CCHASCM) 

Task Data Definition Table CCHATDT) 

User Table CCHAUSE) 

Active User Table (CaAAUL) 

Interrupt Storage Area (CHAISA) 

!► RELEASE Command Routine CCZAFJ) 

This routine deletes job file control blocks CJFCB) from the task 
data definition table. It may be used to release the devices associated 
with a data set, to deconcatenate one or all data sets of a given conca- 
tenation, and to remove a job library from the program library list. 
(See Chart CN. ) 

ENTRIES: 

CZAFJl - normal command entry 

C2AFJ2 - nonprivileged macro instruction entry 
CZAFJ3 - privileged entry 

CZAFJfl ~ entry for LOGOFF command routine 
CZAFJ5 - second entry for ERASE/DELETE command routine 
CZAFJ6 - first entry for ERASE/DELETE command routine (used to close 
data control blocks only, not to delete JFCBs) 

MODULES CALLED : 

NEXTPAR (CZAACl) Gets and validates input operands. 

CHEKDS CCZAAC2) Validates data set name. 

ALFNUM (CZAAC3) Validates data definition name. 

FINDDS (CZAECl) Finds JFCB for a given data set name. 

MSGWR (CZAAD2) Prompts user for additional or nlssing infor- 

mation; prints error messages. 

RELEAS CCZCADl) *^ Releases the devices associated %d.th a data 

set. 

LOCATE CCZCFLl) Sets up a fully qualified name for a genera- 

tion data group name. 

Loader Release (CZCCD2) To UNLOAD modules loaded from job libraries. 

User Prompter (CZATJl) Prompts user for additional or missing infor- 

mationj prints error messages. 

The RELEASE Command routine also uses VSEND, FREEMAIN, CLOSE, and 
DUPCLOSE. 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND, 

OPERATION ; This routine first determines if the drive is to be released 
and sets a flag accordingly. Then, the routine determines if its input, 
fetched via NEXTPAR, is ♦ALL or a data definition name (ddnam.e) . The 
♦ALL requests that all JFCBs in the Task Data Definition Table (TDT) be 
released. If the ♦ALL option has been specified, RELEASE locates the 
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first JFCB to he released, tests for a SCRATCH or BOhD option, and 
honors it if specified. Then the routine searches the entire TDT. As 
each JFCB is found, RELEASE tests its ddnaroe to see if the JFCB is 
reserved; reserved JFCBs have ddnames that begin with $$$ or SYS, can be 
released only if the calling routine is privileged. 

If the JFCB is not reserved or if the calling routine is privileged, 
RELEASE then closes all data control blocks associated with the JFCB. 
The request queue is scanned to determine if the symbolic device address 
or the device type code entries are matched in the JFCB. Unless entry 
was made from ERASE/DELETE at CZAFJ6, an included subroutine -- DJFCB — 
is now called to perform the deletion. RELEASE continues this process 
until the entire TDT has been scanned. RELEASE searches the entire SDAT 
table to insure that all devices assigned to the task are freed. Each 
SDAT entry which contains the task's taskid is deleted by RELEAS3, an 
included subroutine. Control is returned to the calling routine. 

When the *ALL option is not specified and a ddname is given, the rou- 
tine validates it, via ALFNUM, locates that ddname in all chains, and 
then looks for a data set name (dsnaroe) . If the dsname is defaulted, 
the JFCB for the specified ddname is located in the TDT and checked to 
see if a concatenation is involved. If no concatenation is involved and 
the data set is a library, the JFCB is checked to determine if any 
modules were loaded from it. If not, processing continues. If so. 
Loader Release CC2CCD2) is called to unload all modules- If Loader 
Release is unable to unload all modules after being called by the 
Release command, the user is prompted. Under all conditions, a return 
code of X*2^' is returned to the caller. Then the request queue is 
scanned for a match on symbolic device address of device type code. If 
the data set is open, the DCBs associated with the data set's JFCB are 
closed and the included subroutine DJFCB is called to delete the JFCB. 
If concatenation is indicated, all JFCBs in the concatenated chain will 
be deleted after their DCBs have been closed by the CDCB subroutine. 

A dsname supplied along with the ddname indicates that deconcatena- 
tion of one data set is desired. In this case, RELEASE validates the 
data set name via NEXTPAR and CHEKDS, and uses FINDDS to locate the JFCB 
associated with that name. The JFCB will then be deleted Cby DJFCB) 
from the concatenation, but the rest of the concatenation will remain 
intact. 

DJFCB does the actual deletion, handling one JFCB each time it is 
called. DJFCB will delete the JFCB from every chain in which it is 
included (concatenation, library, temporary tabulation, as well as the 
main TDT chain) and link its area to the free area chain. If the JFCB 
to be deleted is on a private volume, DJFCB first validates the volume 
field. For raultivolumes, DJFCB finds the end of the chain. If the 
volume field is invalid, the device is released, but no PAT page is 
freed. Through the RELEASE service routine, DJFCB also releases the 
devices associated with the JFCB. Note, however, that it will not 
release devices for a public, uncataloged data set until ERASE/DELETE 
has made the request. 

ERROR CONDITIONS ; If entry was by macro instruction, a hexadecimal ■ code 
will be returned in register 15: 

Code Significance 

00 Normal return 

04 Ddname not given 

08 Attention interrupt 

OC Reserved ddnaroe 

10 Unknown ddname 

14 Uncataloged data set on public volume 

18 Unknown dsname 
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20 Iniralid operand 

2^ All modules could not be unloaded 

The routine checks for acceptable operands and notifies the user, 
through MSGWR, of any errors found. For the messages issued, see System 
Messages . 

The routine may issue these system errors. In each case the severity 
is minor, and the ABEND message is SYSTEM ERROR - TASK TERMINATED, 

SYSER Code Significance 

050505901 Invalid information from NEXTPAR, ALFNUM, or CHEKDS, 

Invalid information from MSGWR. 

Invalid information from FINDDS. 

Invalid return from RELEASE, 

Invalid information from LOCATE. 



050505902 
050505903 
05050590^4 
050505905 
050505906 



Pointer to RESTBL (for VAM) or DEB (for SAM) data sets said 
to be open; ddname taken from TDT, but not subseguently 
found. Error in TDT, 



050505907 DCB header missing. 



SYSTEM CONTROL BLOCK USAGE ; 

catalog SBLOCK (CHACCC) 

Data Extent Block CCHADEB) 

Task Common (CHATCM) 

D^ta Control Block Header CCHADHD) 

RESTBL Header CCHARHD) 

Request Queue (CHARQU) 

Symbolic Device Allocation Table (CHASDA) 

Task Data Definition Table CCHATDT) 



^ RET Command Routine (CZAEN) 



This routine makes it possible for the user to modify the mode field 
in the Data Set Descriptor (DSD) and the equivalent Job File Control 
Block (JFCB) field which contains the storage type, deletion and owner/ 
user access attributes of the data set- (See Chart CO.) 

ENTRIES ; 

CZAENl - command entry 
CZAEN2 - macro entry 

MODULES CALLED : 

DSCB RD/WR (CZCEM) 

SRCHSDST (CZCQE) 

FINDDS (CZAECl) 

ADDCAT (CZCFA2) 

User Prompter (CZATJl) 



Pages in DSCBs. 

Gets count of current data set users. 

Finds JFCB for a given dsname. 

Updates the catalog DSD. 

Sends prompting and diagnostic messages to the 
user. 
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To update the user accounting information, RET updates RCR UPDATE, RCR 
RATION, and RCR VACATE. 

EXITS ; The routine returns to the calling routine via the RETURN raacro 
instruction, 

OPERATION: The RET coiranand routine is entered with a pointer to a pa- 
rameter string containing pointers to the data set name and the values 
to be entered into the mode field. When RET has finished processing, 
the new values will be reflected in both the DSD and the JFCB for the 
data set, 

RET processes the input parameter DSNAME, then calls FINDDS to locate 
the JFCB or, if necessary, create one, 

A check is made that no more than one DCB is open for this JFCB. If 
a DCB is open, a check is also made to determine whether the DCB belongs 
to the same user who issued the RET command. If it is not the same 
user, RET issues a diagnostic, via PRMPT, and returns to the caller. If 
it is the same user, a check is made to determine if the data set is 
shared. 

For shared data sets, RET checks the owner/user access and permits 
sharers to use the RET option only if their access privilege is unli- 
mited. RET calls SRCHSDST to determine if there is any current user of 
this data set and sends a diagnostic, via PRMPT, if there is a current 

user. 

RET then scans and validates the input values, making only those 
changes to the JFCB that the user has specified. Unspecified values 
remain unchanged. If invalid values are entered, the routine issues a 
diagnostic and returns to the caller. 

RET calls ADDCAT to update the DSD mode field entry- If a public VAM 
data set is changed from a permanent to a temporary data set Cor vice 
versa), RET calls RCR UPDATE, RCR RATION, and BCB VACATE to update the 
User Table and either links the JFCB into the temporary tabulation chain 
or removes it, if necessary. 

If invalid parameters are entered in conversational mode, RET issues 
a diagnostic via PRMPT, and the command is canceled. In nonconversa- 
tional mode, a message is written on SYSOUT and control is returned to 

the user. 

ERROR CONDITIONS ; When RET is entered through a macro call, error codes 
are returned to the calling program in register 15: 

Code significance 

00 Normal return 

04 Data set not cataloged 

08 Invalid dsname 

10 Incorrect values (code given) 

14 Open DCB 

IC Data set not found or not available to this user 

20 Insufficient resources 

24 Non zero return code from ADDCAT 
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28 Invalid temporary tabulation chain in JFCB 

SYSTEM CONTROL BLOCK OSAGE : 

Task Common (CHATCM) 

User Table CCHAUSE) 

Catalog S BLOCK (CHACCC) 

Task Data Definition Table CCHATDT) 

Format -E DSCB C CHADS E) 

Active User Limits Table CCHAAUL) 

System Common CCHASCM) 

Public Volume Table CCHAPVT) 

► RPS/CW/LPDS/CPS Command Routine (CZAXX) 

This routine provides the means for obtaining information about the 
status of public storage (LPDS>| deleting certain invalid data sets on 
public storage (CPS) ; and recreating public storage when the catalog 
and/or public storage no longer provides serviceability to support the 
Time Sharing System CRPS and CW). (See Chart CP, ) 

RPS: The RPS command is processed in three phases: 

1. Phase 1 recovers multi volume data sets from public storage Cwithout 
the use of the catalog) and copies them to tape. The RVNO CACV 
volume) used in the search for multivolume data sets can be either 
the ACV in use by the system or an old ACV that has been mounted as 

a private pack. 

2. Phase 2A copies data sets from private volumes (usually those pre- 
viously mounted as public) into currently mounted public storage 
(which, by definition, catalogs them) . 

3. Phase 2B copies output produced by Phase 1 or created by VAM TAPE 
(CZAET) into public storage. 

CW : The CW (Catalog Vam Volume) command catalogs data sets on public 
volumes from the previous system. Old public volumes may be mounted 
during Startup^ provided consistency is maintained in relative volume 
numbers • 

LPDS : The LPDS (List Public Data Sets) command searches public storage 

and lists each data set found. Any data set that does not pass certain 

edit tests is flagged on the list as being invalid- All others are 
marked valid. 

CPS ; The CPS (Clean Public Storage) command searches public storage the 
same as LPDS, checks each data set the same as LPDS, and then deletes 
the data set if it fails any of the edits. The output listing flags 
each data set as "retained" or "erased." 

ENTRIES: 

CZAXXl - RPS command entry 

CZAXXll - RPS BPKD 

CZAXX2 - CW command entry 

CZAXXl 2 - CW BPKD 

CZAXXL - SYNAD for output list data set 

CZAXX6 - EODAD for RPS Phase 2B tape input 

CZAXX7 - SYNAD for RPS Phase 2B tape input 

CZAXX3 - CPS command entry 

CZAXX13 - CPS BPKD 

CZAXX8 - LPDS command entry 

CZAXXl 4 - LPDS BPKD 
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RESTART ; All coromands have a START parameter which is used to indicate 
where a restart is to take place. It can be specified as ■CONT* which 
will process froin the point of last interruption; or it can be specified 
as a specific DSCB or FSQ number. 



MODULES CALLED: 



I^TREQ CCZCAAl) 



Issues mount requests for voluroes as required. 



VAMINIT CCZCEQl) 

OBTAIN CCZCFOl) 
PAIR CCZACSl) 
LOCATE CCZCFLl) 
ERASE CCZAEJ6) 

DDEF CCZAEA5> 

W CCZAET6) 

VT CCZAET4) 
TV (CZAET5) 
INDEX (CZCFIl) 
ADDCAT CCZCFAl) 
RELEASE (CZAFJ3) 
CATALOG (CZAEI2) 

DELCAT CCZCFDl) 

DELVAM CCZCFTl) 

GATWR (CZATCl) 

MSGWR (CZAAD) 
GETMAIN CCZCGA2) 
FREEMAIN CCZCGA3) 
SETXP (CEAH7) 
PGOUT CCZAAl) 
PAIR CCZACS2) 



Reads in Page Assignment Table CPAT) . 

Reads volume labels and DSCBs. 

Puts entry in AIR table. 

Determines whether data set is already cataloged. 

Erases a new data set if the data set is not indexed 
or renamed successfully. 

Creates input and output JFCBs and reDDEFs TSS*****. 
USERLIB if it was released during processing. 

Copies data set from private to public volume. 

Copies data set to tape. 

Copies data set from tape into public storage. 

Creates generation index. 

Catalogs data set. 

Releases input and output JFCBs and USERLIB JFCB. 

Renames a new data set to original name, replacing 
generated name. 

Deletes catalog entries when CW deletes a cataloged 
data set. 

Deletes DSCBs and pages of processed CRPS Phase 1) 
and error (CW) data sets without accessing the 
Catalog. 

Issues status message after attention interrupt or 
ABEND. 

Issues messages on SYSOUT. 

Reserves virtual storage. 

Releases virtual storage. 

Makes DSCB pages available to a task. 

Returns updated DSCB pages to disk. 

Removes AIR table entry. 



EXITS ; This routine always exits to the calling routine via a RETURN 
macro instruction. 
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OPERATION ; Initialization procedures are similar for all commands and 
phases. All parameters are checked for validity and proper combina- 
tions. All functions call PAIR CCZACSl) to place an entry in the ABEND 
Interlock Recovery table (CHAAIR> . All functions locate a JFCB for an 
RPSOUT, CWOUT, CPSOUT or LPDSOUT data setj checking for VI data set 
organization; opening the data set and writing the header record. 
Exceptions in initialization procedures are as follows: 

1. Initialization for RPS Phase 1 with the ACV parameters includes 
creating a new PVT to be used by the system when copying roultivo- 
lume data sets to tape- This PVT will contain the ACV volume that 
was requested by RPS. A call is made to IfTREQ in Phase 1 with the 
ACV parameter to mount and initialize the old ACV volume. 

2. Initialization for Phase 2A includes calls to MTRE^ to mount 
volume, VAMINIT to read in the PAT, and OBTAIN to read the volume 
label. 

3. Initialization for RPS Phase 1, RPS Phase 2 A, CW, CPS and LPDS 
includes scanning the PATCs) for DSCB pages and issuing the SETXP 
macro to make DSCB pages available to the task. 

4. Initialization for all commands is effected by the START parameter. 
For all commands and phases except RPS 2B, the starting point of 
the search is initialized to the Volume, DSCB page and slot; one 
beyond the point that an interruption took place (this information 
is saved in the CSECT) . This occurs if START = CONT is specified 
and the CSECT does contain information from the last run. If the 
CSECT does not contain information from the last run and START = 
CONT is specified, processing begins at the beginning of the volume 
specified. The starting point is also modified if a specific DSCB 
is specified in the START parameter. The initialization is similar 
for RPS Phase 2B except that File Sequence Number (FSQ) is used. 

Recreate Public Storage CRPS) 

Phase 1 locates a Forroat-E DSCB. All DSCBs for a data set are vali- 
dated before they are processed. If the Forma t-E DSCB is valid, the 
data set name, DSCB slot address, data set organization, reference data, 
number of data pages, overflow pages, directory pages, total pages 
assigned and volume serial number are stored in the RPSOUT buffer. If 
invalid conditions are detected, the data set may be skipped. 

The relative volume number fields in the Format-E DSCB entents (and 
in any Format-F entents) are checked to determine whether the data set 
is multivolumc^. Single volume data sets are skipped. (Since the system 
may nave been started up with a fresh ACV in order to reclaim any multi- 
volume data sets, the DSCB chain may point to a blank DSCB on the ACV. 
These data sets are skipped. There is no identification for data pages 
on the ACV which are referenced by DSCBs on other packs. ) If the ACV 
parameter was specified, this problem is minimized. The RVNO of public 
storage that is used is taken from a specially built PVT created by 
C2AXX and used by VT when raulti volume data sets are to be copied to 
tape. 

If there is no tape JFCB, it is created and set for multivolume out- 
put. Task Common is updated with the userid of the data set- The input 
(disk) JFCB is created, if necessary, and updated. VT copies the data 
set onto tape. Input JFCB fields are cleared to disconnect the data set 
from the systc^m. 

Phase 2A locates and validates a Format-E DSCB and stores DSCB infor- 
mation (data set name, DSCB slot address, data set organization, 
reference date, number of data pages, overflow pages, directory pages, 
total pages assigned and volume serial number) in the RPSOUT buffer. A 
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test is made for the SYSCAT or SYSOPERO data sets and the data page 
count and total pages assigned are checked for a null data set. If any 
of these conditions are present, the RPSOUT record is updated with the 
IGNORED disposition and the record is written. The next DSCB is then 
processed. 

Phase 2A Format-E DSCB processing continues by checking every extent 
and DSCB pointer against the relative volume number (RVN) which was read 
in from the volume label. This is done to guard against processing mul- 
tivolume data sets. The RPS Flag in the JFCB is set to 'CO* to indicate 
to OPENVAM that it should disregard the RVO of each entry in the DSCB. 
Task Common is updated with the user id of the data set. The LOCATE is 
called with the data set name from the DSCB to determine whether or not 
the data set is already cataloged. If the data set is cataloged and not 
a USERLIB, it is ignored and the RPSOUT record is updated with the 
IGNORED disposition. If the data set is a USERLIB, the SYSULIB JFCB is 
released and ERASE is called to remove the USERLIB from public storage. 
(The USERLIB from the private volume replaces the USERLIB in public 
storage which should be a null data set.) Otherwise, the TDT chain is 
searched for the current data set name, and if a JFCB is found with the 
same name, it is RELEASEd to prevent later interference. If a JFCB does 
not exist for the input data set, DDEF is called to create an input 
JFCB. If a JFCB does exist, the data set name fields in the JFCB are 
updated with the current data set name. All the necessary input JFCB 
fields are filled in from kno%wi data and the TDTRPS field is set to 
X'80' as a signal to other modules to pick up information from the JFCB 
and avoid the Catalog. An output JFCB is created or updated, and fields 
are cleared so that they may be filled by other modules. TDTRPS remains 
X'00» in the output JFCB. The output data set name is USERID.RPSNNNNN, 
where NNNNN is a number generated to create a unique dsname. W is 
called to copy the data set. Once the copy is created, the data set 
must be renamed according to its original name. 

A check is made on the last qualifier of the original name to deter- 
mine whether or not the data set being processed is a generation data 
group. If it is a generation data group, the SBLOCK returned by LOCATE 
is checked to see if a generation index exists. If a generation index 
does not exist, one is created by a call to INDEX C maximum of 2 genera- 
tions for LIST data sets; 5 for all other). CATALOG is then called with 
the rename option to rename the data set in the Catalog and the DSCB on 
public storage according to their original name. If at any point after 
the copy is made, processing is not concluded normally, the data set 
copy is ERASEd and the RPSOUT record is updated with the IGNORD disposi- 
tion. The volume serial number of the public volume on which the? 
correctly completed copy resides is placed in the RPSOUT buffer, and the 
RPSOUT record is updated with the PROCESSED disposition. 

Phase 2B begins by checking to see if a tape has been mounted either 
by the user's DDEF or a previous RPS cycle. If no tape has been 
mounted, DDEF is called to mount it. The tape DCB is updated to link to 
the JFCB and the DCB is opened, moving the tape to the next data set if 
the previous one was skipped. GETMAIN is called to reserve a buffer 
page if one is not available and the first record of the data set is 
read. (The first record is the VAM TAPE control record.) Task Common 
is updated with the user id of the data set and the RPSOUT record is 
filled in. LOCATE is called to determine whether the data set is in the 
Catalog. If the data set is cataloged and is a USERLIB, the existing 
USERLIB is erased. If the data set is cataloged and not a USERLIB, the 
data set is skipped. If the data set is not cataloged, the tape is 
closed with the REREAD option which returns the tape to the beginning of 
the file. The output JFCB is created or updated. A check is made on 
the last qualifier of the original name to determine whether or not the 
data set being processed is a generation data group. If it is a genera- 
tion data group, the SBLOCK returned by LOCATE is checked to see if a 
generation index exists. If a generation index does not exist, one is 
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created by a call to INDEX (maximum of 2 generations for LIST data sets; 
5 for all other) • TV copies the data set from tape to public storage, 
cataloging it directly under its correct name. The RPSOUT buffer is 
completed, and the record is written. At the end of the tape, FREEMAIN 
releases the buffer page. 

Termination for both RPS, CW, CPS and LPDS are handled by a single 
routine. PAIR (CZACS2) is called to remove the AIR table entry. The 
RPSOUT/CWOUT data set is closed. JFCBs are released and the original 
userid is restored in Task Common. If SYSULIB has been released, TSS*** 
♦♦.OSERLIB is reDDEFedi the DCBs for its members are reopened and FIND 
macros are issued for the members. RELEASE is called to release the 
device for RPS Phase 2A or RPS with ACV parameter. Completion messages 
are sent to SYSOUT via MSGWR. 

Catalog VAM Volume (CVV> 

Once a Format-E DSCB is located, the DSCB information (the data set 
name, DSCB slot address, data set organization, reference date, number 
of data pages, overflow pages, directory pages, total pages assigned and 
volume serial number) is placed in the buffer to be written to the 
CWOUT data set. If the data set is null or invalid, it is marked for 
subsequent deletion, unless it is the CWOUT data set (which appears to 
be null if it is new) . The CWOUT data set is marked IGNORED and the 
record is written to it. LOCATE is called to determine iirtiether or not 
the data set is already cataloged. 

If a data set is cataloged but its DSCB pointer is pointing to anoth- 
er DSCB, the data set is marked for deletion. Cataloged data sets 
marked for deletion are deleted from the Catalog by DELCAT. Current 
system data sets which may be open are ignored even if marked for dele- 
tion. Other cataloged data sets are processed by updating the CWOUT 
buffer with the IGNORED disposition and then writing the record. If a 
SYSOPERO data set is not cataloged, the data set is marked for deletion- 
other cataloged data sets are processed by creating a JFCB for the data 
set or updating the JFCB with the dsname. If the deletion flag is on, 
DELVAM is called with TDTRPS set to X'80' to delete the data set pages 
and DSCBs. Otherwise, a check is made on the last qualifier of the name 
to determine whether or not the data set being processed is a generation 
data group. If it is a generation data group, the SBLOCK returned by 
LOCATE is examined for an existing generation index. If a generation 
index does not exist, one is created by a call to INDEX (maximum of 2 
generations for LIST data setsi 5 for all others.) ADDCAT then creates 
the Catalog entry for the data set. If the data set is cataloged prop- 
erly, the CWOUT buffer is updated with the CATALOGED disposition and 
the record is written. If the data set is not cataloged correctly, the 
CWOUT record is updated with the IGNORED disposition and the record is 
written. Termination procedures are described in the last paragraph of 
the preceding section. 

List Public Storage CLPDS) 

Processing for LPDS is similar to CW in that each data set is 
examined to determine its validity (passes certain edit tests listed 
below). An indication is then made in the LPDSOUT data set to indicate 
the validity of the data set, and if it is invalid, the reason. 

Clean Public Storage CCPS) 

Processing for CPS is similar to LPDS in that each data set is 
examined to determine its validity. When a data set is found to be in- 
valid, it is erased from Public Storage and deleted from the catalog, 

ERROR CONDITIONS ; RPS/CW/CPS/LPDS issue the following error messages 
on SYSOUT via MSGWR: 
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B403 - Memory allocatioB request rejected. Coitiraand ignored. 

EE04 ~ Data on tape invalid. Coiratiand canceled. 

EEO^i - Return from Vam Tape invalid- Command canceled. 

EEO^ - Parameter passed to Vam Tape invalid. Command canceled. 

EEOD - Volume for (dsnaroe) not 9 track tape. Command canceled. 

EEOF - Unrecoverable tape error writing (volidK Command canceled. 

EElO - Unrecoverable tape error reading (volid>. Command canceled. 

EE14 - Punctuation error in operand field. Command canceled. 

EE19 - CDs name) not PS data set. Command canceled. 

EE30 - Use of CRPS/CW) command unauthorized. Command canceled. 

EE31 - Volume parameter missing. Command canceled. 

EE32 - Volume parameter invalid. Command canceled. 

EE33 - Device type code invalid. Command canceled. 

EE3M - Public volume invalid. Command canceled. 

EE35 - Unable to mount volume. Command canceled. 

EE36 ~ Use EW command for private volumes. Command canceled. 

EE37 - Hardware error processing volume. Processing terminated. 

EE38 - Error in Cddname) data set. Define new data set and restart with 

this volume - 
EE39 - CDdname) data set not found. Command canceled. 
EE^O - Cannot read volume label. Command canceled. 

EE41 - Organization of (ddname) data set not VI. Command canceled. 
EE«I2 - Error is Userid. LOGOFF and LOGON before proceeding. 
EE43 - Opt parameter invalid. Command canceled. 

EE14 ~ Opt and volume parameters inconsistent. Command canceled. 
EE^5 - Unable to determine volid of input tape. Command canceled. 
EE16 - Input DDEF failed. Command canceled. 
EE47 - ACV parameter invalid. Command canceled. 
EE48 - Start parameter invalid. Command canceled. 

SYSTEM CONTROL BLOCK USAGE ; 

Task Common CCHATCM) 

Task Data Definition Table CCHATDT) 

Interrupt Storage Area CCHAISA) 

Symbolic Device Allocation Table (CHASDA) 

System Common (CHASCM) 

Format-E DSCB CCHADSE) 

Forroat-F DSCB (CHADSF) 

Public Volume Table (CHAPVT) 

Catalog SBLOCK (CHACCC) 

Data Control Block (CHADCB) 

ABEND Interlock Release Table CCHAAIR) 

EDITS ; The following edits are performed for all data sets by checking 
the Format E DSCB; 

- DSCB CHECKSUM 

- VALID DSORG 

- Zero total pages 

- Zero data pages COK FOR RPS, CW, CPS, LPDS OUT D/S) 

- Total pages less than total in use 

- VS data set with Directory pages 

- VS data set with Overflow pages 

- VS data set valid record format 

- VS data set record lengths a page multiple (For Format 'U*) 

- VI data set valid record format 

- VI data set key length zero 

- VI data set with more than 255 directory pages 

- VI data set with more than 2^0 overflow pages 

~ VI data set keylength + keyoffset greater than record lengths 

- VI data set invalid record length 

The following data sets are ignored; 
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- CATALOG 

- SYSOPERO D/S 

- TSS USERLIB 

- TSS SYSOUT 
~ BWQ 

The SYSLIB data set is renamed CUV.SYSLIBt or RPS.SYSLIB. 

» SECURE Cororoand Routine (CZAFU) 

This routine is called once by a nonconversational task to reserve 
all devices that will be needed during execution of that task. The rou- 
tine is also called by BULKIO tasks to reserve the devices required by 
them. If the SECURE command is invoked by EXPRESS BATCH, a diagnostic 
message is issued and the task exits to ABEND. SECURE operates in non- 
conversational mode only. (See Chart CQ. > 

ENTRIES ; 

CZAFUl - normal entry 

CZAFU 2 - batch monitor entry 

MODULES CALLED : 

MTREQ (CZCAAl) Allocates requested deviceCs). 

NEXTPAR (CZAACl) Fetches and validates command operands. 

MSGWR (CZAAD2) Issues system messages. 

EX ITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs^ the routine exits 
to ABEND. 

OPERATION : The command operands are fetched and validated using the 
SCAN routine, NEXTPAR. These operands describe the number and type of 
devices needed by the task. If entry is from CZAFUl, the routine will 
reserve any of these devices: 

1. 7-track tape (with or without data conversion) 

2. 9~track tape 

3. Direct access devices (2311 and 2314) 

In addition to the above, the routine will reserve any of these devices 
for an entry from the batch monitor or a class E user. 

1. Card reader 

2. Punch 

3. Printer 

After verifying operands, SECURE creates a device type code for each 
requested device and inserts these codes in a parameter list for MTREQ. 
If any of the requested devices are not available when MTRBQ is called, 
the request remains enqueued and the task is suspended until all 
required devices become available. 

ERROR CONDITIONS : The routine checks for acceptable operands and noti- 
fies the user, through MSGWR, of any errors found. For the messages 
issued, see System Messages . 
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SYSER Code Severity ABEND Message Significance 

050507001 Minor SYSTEM ERROR, INVALID M'mEQ returned an in- 

RETURN FROM MTREQ. valid code. 

050507002 Minor SYSTEM ERROR. TASK Error has been found in 

TERMINATED. command received from 

batch monitor. 

SYSTEM CONTROL BLOCK USAGE ; 

System Common CCHASCM) 
Task Common CCHATCM) 

^ SHARE Command Routine (CZAFI) 

This routine enables an authorized user to access a data set in 
another user's catalog. CSee Chart CR.) 

ENTRY: CZAFIl - normal entry 

MODULES CALLED ; 

NKXTPAR (CZAACl) Gets command operand. 

CHEKDS {CZAAC2) Validates data set name. 

ALFNUM (CZAAC3) Validates user identification. 

MSGWR CCZAAD2) Issues system messages. 

SHAREUP (CGCFU) Creates sharing descriptor in owner's catalog. 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION ; The routine obtains its input parameters, and checks them 
one at a time for validity. The first check is made on the name that 
will appear in the user's catalog pointing to the owner's catalog. This 
name must be both legitimate and unique (see note below) . A pointer to 
this name is put in a parameter list for SHAREUP. 

The owner's user identification Cuserid) is validated next, and then 
the owner's data set name is checked. If, instead of a data set name, 
♦ALL has been entered (indicating that all of the owner's cataloged data 
sets are to be shared), a pointer to the owner's user id is put in the 
parameter list as his fully qualified name. For all other cases, the 
owner's userid, followed by the data set name, is moved to a save area 
and a pointer to this area is put in the SHAREUP parameter list. 

SHAREUP is called and if all entries are error-free, it creates the 
sharing descriptor entry in the user's catalog. 

Note : If SHAREUP finds that a nonunique data set name is already point- 
ing to the correct owner's data set, a normal return is effected. 

ERROR CONDITIONS ; The routine checks for acceptable operands and noti- 
fies the user, through MSGWR, of any errors found. For the message 
issued, see System Messages . 

The routine may issue these system errors ; 
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SYSER code 



050505800 



050505801 



050505802 



050505803 



050505804 



050505805 



050505806 



050505807 



Severity 
Minor 

Minor 

Minor 

Minor 

Minor 

Minor 

Minor 

Minor 



ABEND Message 

INVALID RETURN CODE 
FROM CATALOG SERVICE 
ROUTINE. 

INVALID RETURN CODE 
FROM NEXTPAR AFTER 
SCANNING USER DSNAME. 

INVALID RETURN CODE 
FROM CHEKDS AFTER 
SCANNING USER DSNAME. 

INVALID RETURN CODE 
FROM NEXTPAR AFTER 
SCANNING OWNER ID. 

INVALID RETURN CODE 
FROM NEXTPAR AFTER 
SCANNING OWNER DSNAME. 

INVALID RETURN CODE 
FROM CHEKDS AFTER 
SCANNING OWNER DSNAME. 



Significance 

SHAREUP returned invalid 
code. 



NEXTPAR returned invalid 
code. 



CHEKDS returned invalid 
code. 



NEXTPAR returned invalid 
code. 



NEXTPAR returned invalid 
code. 



CHEKDS returned invalid 
code. 



USERID NOT IN CATALOG. Userid of user issuing 

SHARE command is not 
in catalog POD. 

INVALID RETURN CODE ALFNUM returned invalid 
FROM ALFNUM AFTER code. 
SCANNING OWNER ID. 



SYSTEM CONTROL BLOCK USAGE ; 

Task Cominon (CriATCM) 

Interrupt Storage Area CCHAISA) 

!► SYNONYM/DEFAULT Catalog Routine (C2ATR1) 

This routine is used to enter or delete synonym and default values in 
the combined dictionary (CD). (See Chart CS.) 



ENTRY: 



CZATRl - normal entry 



MODULES CALLED ; 

Procedure Expander 
(CZATE2> 

Dictionary Handler; 

DELENT (CZASD6) 

ENTR (CZASD5) 

RFR (CZASD3> 



Constructs tables of pointers to the synonym or 
default names. 



Deletes entries from the combined dictionary. 

Adds entries to the combined dictionary. 

Scans the combined dictionary for matching entries. 



EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION; Upon entry to SYN/DEF, a test is made to determine if 
synonym values are to be cataloged. If they are, a flag, CZATR9, is set 
on. The Procedure Expander routine BUILDLIST is now entered to con- 
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struct two tables. The ELIST table contains pointers to the SYN/DEF 
names, and ILIST pointers to their corresponding parameters or values, 
where each is preceded by its length characteristic. During execution 
of BUIIiDLIST, each isolated parameter is checked for a synonym value; 
thus SYNFLG must be enabled to allow a name, which may already be a 
synonym name, to be redefined. Since BOILDLIST expands the source list 
CSL) while interrogating the SYN/DEF parameter strings, its existing 
state must be saved to be restored prior to exit. 

After the tables are constructed, each ELIST entry (that is, the 
value to which it points) is hashed via the HASH macro instruction, and 
the end result is input to the RFR routine to determine if the name cur- 
rently exists in the combined dictionary. If not, the corresponding 
ILIST entry is checked for a null value. If it is, a warning message is 
sent to the terminal, and the next ELIST entry is processed; otherwise, 
it is entered in the combined dictionary via the ENTR routine prior to 
processing the next entry. 

If the ELIST entry already existed in the combined dictionary, a test 
is made to determine if it is the right type (that is, a SYN or DEF 
type). If not, it is ignored, and the search through the combined dic- 
tionary continues; otherwise, its corresponding ILIST entry is tested 
for a null value. If null, the name is deleted from the dictionary via 
the DELENT routine; otherwise, the new value replaces the existing 
value, via ENTR. 

After all of the entries have been processed, CZATR9 is disabled, the 
SL is returned to its state prior to entry, and an exit is made to the 
calling routine. 

ERROR CONDITIONS ; There are no error conditions for this routine. 

SYSTEM CONTROL BLOCK USAGE ; 

Source List Page Header CCHASLP) 

Sublist Header (CHASLH) 

Profile Character and Switch Table (CHAPCT) 

New Task Common CCHANTC) 

Control Dictionary Entry (CHADEN) 

^ System Activity and Resources Display CSARD) Processor (CZAYE) 

This routine is called to gather information r€!lative to Syst^n Acti- 
vity and Resources. It summarizes current system activity, pending 
work, and current resources into a convenient display, which is written 
to SYSOUT. (See Chart CT. ) 

ENTRY: CZAYE2 - normal entry 

MODULES CALLED ; None. 

EXITS ; CZAYE returns to its calling routine. 

OPERATION: This routine may be validly entered only as a result of a 
command from an operator task or a manager/administrator task. If the 
SARD table (CHASAR) is not current (SARCUR=X» 01« ) , CZAYE sets the CHASAR 
lock byte (SARLCK) , and proceeds to calculate and extract the latest 
system values for the CHASAR fields that are not dynamically updated. 
The data is gathered into CHASAR from various system tables. Some of 
the data in the SARD table will be updated dynamically by the Batch Mon- 
itor and may be extracted at face value. 

When CZAYE has completed gathering and tabulating data in the SARD 
table, it issues a GATWR to write a header. Subsequently, CZAYE con- 
verts and formats each line, and issues a GATWR to write each line. 
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After the last line is processed, CZAYE unlocks the SARD table and 
returns to its calling routine. 

If CHASAR is current (SARCUR=X' 01' ) , CZAYE locks CHASAR, but bypasses 
the gathering of inf ormation, assuming the most recent time-activated 
accumulation of data for the display. This is accurate to within 30 
seconds. 

ERROR CONDITIOISIS ; If this routine is invoked by other than an operator 
or manager/administrator task, a diagnostic message is written to GATE, 

SYSTEM CONTROL BLOCK USAGE : 

System Common ( field :SCMTTS> 

VAM2 Public Volume Table (CHAPVT) 

Active User Table (CHAAUL) 

Symbolic Device Address Table (SDAT) 

System Activity and Resources Table CCHASAR) 

^SYSXPAT Command Routine (CZATF) 



This privileged routine calls a command analyzer and executor command 
directly and passes its parameters in original textual form. CSee Chart 
CU.) 

ENTRY: CZATFl - normal entry 

MODULES CALLED : None. 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION ; This is a BUILTIN procedure. If the SYSXPAT command ended 
with a semicolon, SYSXPAT transfers the parameter list beginning on the 
remainder of the line from the source list to the buffer in task common. 
If not, it passes the parameter list beginning on the next line. If the 
line is a continuation line the following line (2) is also copied. SYS- 
XPAT contains a table of names and external symbols which it uses to 
determine the symbol to be called. 

ERROR CONDITIONS ; There are no error conditions for this routine. 

SYSTEM CONTROL BLOCK USAGE : Task Common CCHATCM) 

Compatibility Handler CC2ATF1) 

This module allows execution of CLI commands (for example, DDEF, 
PRINT, EXECUTE, etc.) through the Release II Command Systen. (See 
Chart CU.) 

ENTRY ; CZATFl - normal entry 

MODULES CALLED : 

User Prompter CCZATJl) Prompts the user. 

SYSIN (CZASC?) Retrieves the parameter string from the source 

list and place it in task common. 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION ; Upon entry to CZATFl, the input command name is compared to 
a table of compatibility names. If a match doesn't occur, the user is 
notified, via the PRMPT macro instruction, and an immediate exit is 
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taken. If a match does occur, the SYSIN macro instruction is executed 
in order to retrieve the routines parameter string from the source list 
CSL) , and place it in the task common. If the string has continuation 
lines (that is, last character in the preceding line is a dash), they 
are also read from the SL until there is a final continuous parameter 
string in task common. If the total number of bytes passed exceeds 
1500, the user is notified via PRMPT, and an immediate exit is taken. A 
special termination byte CX'27») is now placed at the end of the string 
in task common, and a series of tests is made to determine if the 
desired command is FTN, ASM, or LNK. If it is, an immediate exit is 
takenj otherwise, the routine is executed via a CALL on the adcon pair 
associated with the input command name. Upon return, an immediate exit 
to the calling routine is made. 

ERROR CONDITIONS ; The user is prompted and an exit is taken if the 
input command name isn't found in the compatibility table. The user is 
prompted and an exit is taken if the parameter string exceeds 1500 
bytes . 

SYSTEM CONTROL BLOCK USAGE; Task Common (CHATCN) 



^TIME Command Routine (CZAVB) 



This routine permits a time interval to be specified for the comple- 
tion of a task. Either of two clocks may be set. System Clock 14 is 
set to the value specified by a TIME command. It is initialized at 
LOGON time to the system time specified during System Generation - 
Express Batch Clock 13 is set to the value, if any, specified by an 
•express* control card during Express Batch processing. (See Chart CV. ) 

ENTRIES ; 

CZAVBl - The VMTI entry initializes the timer to a value specified by 
the SCMTIM field of System Common (CHASCM) . 

CZAVB2 - The normal command entry is entered when a TIME command is 
issued. 

CZAVB3 - The INTERRUPT routine entry prints a message to the conversa- 
tional user indicating his time has elapsed and resets System 
Clock 14 to an additional one minute value to permit user con- 
tinuation. A nonconversational task is ABENDed when it is 
interrupted by System Clock 14. A task in Express Batch mode 
is ABENDed by the elapse of Express Batch Clock 13. An indica- 
tive diagnostic message is issued for the elapse of either 
clock. 

CZAVB4 - The EXPRESS entry is entered in Express Batch mode to initia- 
lize Express Batch Clock 13 to the time value defined on the 
•EXPRESS' control card. It is reentered after LOGON for each 
sub-task within the Express Batch to reinitialize the clock. 

MODULES CALLED: 



NKXTPAR CCZAACl) 



Scans the parameter for the first nonblank and 
for the character length. 



CHKNUM CCZAAC5) 
ABEND CCZACPl) 



Converts the parameter, N, into a binary number. 

Abends whenever time interval has elapsed while 
in nonconversational mode. 



User Prompter CCZATJl) Issues elapsed time and error messages, 
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EXITS ; The routine normally returns to the calling routine via the 
RETURN macro instruction. There are no error exits. ABENDl is taken 
for an interrupt entry due to Express Batch Clock 13 or a background 
task interrupted by System Clock 14. 

OPERATION ; Entry via the VMTI entry point at LOGON time causes a time 
value to be picked up from the SCMTIM field of System Common, as speci- 
fied during System Generation. This time value is used to initialize 
System Clock 14. 

CZA¥B2 is entered as a result of the TIME command. Register 1 con- 
tains a pointer to the address of the time parameter, N. NEXTPAR 
CCZAACl) is called to scan the parameter. NEXTPAR' s output, the length 
of the parameter and the address of the first nonblank character, is 
used as input to CHKNUM (CZAAC5). Then CHKNUM validates the parameter 
and converts it to a binary number. Any unsigned decimal integer great- 
er than zero and less then 451 is valid. If the integer is invalid, 
PRMPT sends a message to the task and the command is ignored. 

The INTERRUPT entry disables the clock not causing the interrupt to 
inhibit further interrupt action. A message is written to SYSOUT iden- 
tifying the source of the interrupt. If System Clock 14 caused the 
interrupt and the task is conversational. System Clock 14 is reinitia- 
lized to a one minute interval and the routine returns to the calling 
routine. If the task is nonconversational, a completion code 1 ABEND 
occurs after a message is written to SYSOUT. 

The EXPRESS entry utilizes the parameter scan and validation routines 
called by CZAVB2. If the time integer is valid. System Clock 14 is 
reinitialized to the new value. Then CZAVB4 examines, on the first 

pass, the time parameter entered on the 'EXPRESS' card and initializes 
Express Batch Clock 13 accordingly. On subseguent entries the clocks 
are reinitialized from the value saved from the first pass. 

ERROR CONDITIONS : If the integer which is presented with the TIME com- 
mand does not lie within the limits 0<N<451, the following message is 
printed on the operator's terminal: 

TIME INTEGER N INVALID. REQUEST IGNORED. 

SYSTEM CONTROL BLOCK USAGE : 

System Common (CHASCM) 
Task Common (CHAT CM) 



^ Userid Informational (UID) EXHIBIT Processor (CZAYG) 



The EXHIBIT Director CCZAYD) calls CZAYG to process requests for an 
information display depicting all active tasks in the system.. (See 
Chart CW.) 

ENTRY: CZAYGl - normal entry 

MODULES CALLED : None . 

EXITS : CZAYG returns to its calling routine, CZAYD. 

OPERATION ; If the task requesting the UID option is not an operator or 
manager/administrator tasks, this routine flags the form to be presented 
as 'short'. This means that the number of userids presented per line 
(UINUMPER) is set to five rather that to one, as it is for the 'long' 
form. Clf the SYSOUT is a teletype, UINUMPER is set to three for 
short.) The operator or manager/administrator may specify the short 
form in his command format. 
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The 'long" form displays, in addition to the userid, taskid, and sta- 
tus, the SDA/BSN, the tiroe the task was activated, how much temporary 
storage is being used, and the devices in use. All of this information 
required for the UID display is gathered from the Active User List Table 
(CHBAUL> . 

CZAYG moves all active and applicable entries from CHBAUL to the work 
area provided by its calling routine, CZAYD. Using GATE, CZAYG then 
writes headers to SYSOUT, and converts and writes via GATWR each line of 
data in the work area. When the data lines are exhausted CZAYG returns 
to its calling routine. 

ERROR CONDITIONS ; None. 

SYSTEM CONTROL BLOCK USAGE; Active User List CCHBAUL) 



^ UPDTUSER Command Routine (CZAGC) 



This routine may only be invoked by a privileged system programmer, 
authority code 'O*, to initialize the counts of data sets for the system 
and for each user. (See Chart CX.) 

ENTRIES: 

CZAGCl - command entry 
CZAGC2 - macro entry 

MODULES CALLED ; 

Set Interlock CCZCOH) CZCOHl locks the User Table RESTBL for 

WRITE. 

Release Interlock CCZCOI) CZCOIl unlocks the User Table RESTBL. 

LOCATE CCZCFL) CZCFLl finds a catalog entry for a given 

FQN. 

User Prompter CCZATJ) CZATJl writes messages to a user; CZATJ2 

forms messages to write to the operator. 

WTL CCZABQ) CZABQl writes a message to the operator log. 

SETXP CCEAH7) An SVC 24^* is issued to read in a DSCB page. 

ERASE (CZAEJ) CZAEJ3 erases a temporary data set. 

Virtual Memory Allocation GETMAIN CCZCGA2) reserves a page for DSCB 
(CZCGA) processing? FREEMAIN (CZCGA3) frees buffers 

which were obtained for DSCB processing and 
T BLOCKS. 

EXITS: The routine returns to the calling routine via the RETURN macro. 

OPERATION ; The authority code of the user is checked. If the authority 
code is not 'O* , no processing is performed and the routine returns to 
the caller. Otherwise, GETMAIN is called to reserve a page for DSCB 
processing, the User Table data set is opened for update and Set Inter- 
lock locks the User Table RESTBL. The following steps are then per- 
formed for each User Table entry: 

1. A User Table entry is read in. 

2. LOCATE generates TBLOCKs for all data sets in the user's catalog 
and returns the address of the first TBLOCK in the TBLOCK chain. 
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3. One of the following steps is performed for an entry in the TBLOCK 
cha in : 

• If a TBLOCK is not a DSD entry, or the data set is owned by 
another user, or the TBLOCK is a DSD entry for a private volume, 
the TBLOCK is bypassed and the next TBLOCK is located in the 
chain, 

• If a TBLOCK is a DSD entry for a public volume and the owner of 
the data set is the user whose User Table entry is currently 
being scanned, LOCATE is called to obtain the catalog entry for 
the data set. If the data set is temporary, ERASE is called to 
delete the data set and the next TBLOCK is located in the chain. 
If the data set is not temporary, the Format-E DSCB for the FQN 
is read in via SETXP and a checksum is calculated. If the check- 
sum is in error, a WTL is issued to write a message in the opera- 
tor log and the next TBLOCK is located in the chain- If the che- 
cksum is correct, count fields in System Common and the User 
Table are updated and the next TBLOCK is located in the chain. 

4. When the end of the TBLOCK chain is reached, FREEMAIN is called to 
release the space reserved for the TBLOCKs. 

5. If the userid in Task Common matches the userid of the current UPD™ 
TUSER command user, the updated User Table count fields are stored 
in the user table entry pointed to by TCMVLU in task common. 

6. An updated User Table entry is written out. 

After all User Table entries have been processed. Release Interlock 
releases the lock on the User Table, the User Table data set is closed, 
FREEMAIN releases the page reserved for DSCB processing, a completion 
message is issued and the routine returns to the caller. 

ERROR CONDITIONS ; If an error occurs. User Prompter is called to issue 
a diagnostic and processing continues. When processing is complete, a 
return code of 4 is set in register 15 and the routine exits to the cal- 
ling routine. 

SYSTEM CONTROL BLOCK USAGE : 

catalog S BLOCK (CHACCC) 

Data Control Block CCHADCB) 

Format-E DSCB CCHADSE) 

Interrupt Storage Area CCHAISA) 

Public Volume Table CCHAPVT) 

System Common (CHASCM) 

TBLOCK Data Set Descriptor CCHATBD) 

Task Common (CHATCM) 

User Table (CHAUSE) 

► USAGE Command Routine (CZAGB) 

This routine displays on the user's SYSOUT all the non zero account- 
ing information associated with the specified userid. (See Chart CY. ) 

ENTRIES ; 

CZAGBl - macro entry 
CZAGB2 - command entry 

MODULES CALLED : 

SCAN Routines: 

NEXTPAR (CZAACl) Gets command operand. 
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ALFNU^t CCZAAC3) 
CHKNUM CCZAAC5) 

MSGWR iCZhhDl) 

RCR OPEN 

RCR UPDATE 

RCR CLOSE 

REDTIM (CEAS6) 

XTRTM (CEATl) 

User Prompter CCZATJl) 

GATE (CZATCl) 

WRITE (CZCPEl) 

SYSER CCEAIS) 



Checks for alphabetic first character. 

Checks for all numeric characters. 

Issues system diagnostic. 

Opens a user entry. 

Updates user accounting information. 

closes a user entry. 

Gets current time. 

Gets current CPU time used by task. 

Writes RESET diagnostics to SYSOUT. 

Writes data on SYSOUT via GATWR. 

Writes reset user entry to SYSUSE. 

Reports system failures. 



EXITS : The routine returns to the calling routine via the RETURN macro 
instruction. 

OPERATION : Upon entry an indicator is set to show whether entry was 
from a command or a macro. Then the user's privilege is checked for F, 
B, or A. If privileged (F, B, or A) the USAGE command operand list is 
processed. Otherwise, the user's own user entry address is retrieved 
trom task common and processed as with reset option 'N* specified. In 
this former case, the USERID operand specified is checked for validity. 
If the USERID is not valid, a diagnostic message is issued, a return 
code of 4 is set in register 15 and control is returned to the caller. 

For a vaiici USERID, processing continues by checking to see if it is 
thf} Game as that in task common. If it is or if no USERID was speci- 
fied, the user entry pointed to by TCMVLU is processed. If the USERID 
iii different from that in task common, an RCR OPEN is done to OPEN that 
USERID user entry. A failure by RCR OPEN causes a system diagnostic, 
invalid USERID, and the command is cancelled. 



In both cases, the 
If an invalid reset pa 
conversational user is 

centers a 'Y' or 'N' or 
invalid reset paramete 
|aram€>ter. It 'Y' has 
•F' or 'B' . If either 
set preparatory to res 
er pertains, a User Pr 
option is not availabl 
re) turned to the caller 



RESET operand specif 
rameter (other than 
prompted and reprom 
defaults. For the 
r is ignored and pro 
been specified, the 
of tiiese privileges 
et processing of the 
ompter message is pr 
e to the user's priv 
with a return code 



led or defaulted is analyzed, 
iyt ^j. "N*) is specified, the 
pted to this effect until he 
nonconversational user, the 
cessed as the "N' or default 
user privilege is checked for 
pertains, a reset switch is 
user entry fields. If neith- 
esented indicating the RESET 
ilege class and control is 
of 8 in register 15. 



Once the user entry 
ter analyzed, an RCF^ u 
information is current 
corresponding user ent 
zero PRODUCT field, in 
moved along with their 
If the product is zero 
FERl followed by a sem 
condition. 



to be processed is located and the reset parame- 
pdate is performed to insurer that the accounting 

For each of six RESOURCE PRODUCT fields, the 
ry RATION field, CURRENT ALLOCATION field, and non 
that order, are converted to decimal EBCDIC and 
appropriate resource header to output BUFFERl. 
only the RATION is converted and m.oved to BUF- 
icolon indicating the zero PRODUCT field 
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Next the active background TASK count RATION and CURRENT TASK COUNT 
are converted to decimal EBCDIC and moved along with their appropriate 
corresponding header to OUTPUT BUFFER2. However, if the CURREIW TASK 
COUNT field is zero, this is indicated toy the semicolon following the 
ration value. The BULKIN and BULKOUT ACCUKULATIVE fields are converted 
and moved to BUFFER2 along with their respective headers only if they 
are non zero. 

The converted CPU TIME RATION is moved to BUFFER2 and if the user's 
own entry is being processed CRCR OPEN has not been done), the CURRENT 
CPU TIME is extracted, converted, and moved to BUFFER2 following the 
RATION semicolon. Then the ACCUMULATIVE CPU TIME value, if non zero, is 
converted and moved to BUFFER2, 

The converted CONNECT TIME RATION is moved to BUFFER2 and, if RCR 
OPEN has not been done and the current task is conversational, the cur- 
rent connect time is extracted, converted, and moved to BUFFER2, 

Note : CURRENT CPU TIME has the converted format of min: sec: mill isec; 
all other time fields have the format of hr: min: sec. 

At this point the RESET parameter switch is checked as set previous- 
ly. If it is on, ten RESOURCE FIELDS in the user entry are RESET to 
zero. If an RCR OPEN was done to move the user entry from SYSUSE to VM, 
an RCR CLOSE is done. However, if RCR OPEN was not done, the RESET user 
entry is WRITTEN out to SYSUSE. 

Finally a check is made for the type of entry. For a command, the 
two output buffers' contents are written to SYSOUT using two GATWRs. 
For a macro call, the data in the buffers is moved to the caller's 
buffer. 

At this point processing is complete and the module returns to its 
caller via the RETURN macro. 

ERROR CONDITIONS : If entry was by macro instruction, a hexadecimal code 
will be returned in register 15: 

Code Significance 

00 normal return 

04 invalid userid 

08 invalid privilege for specified userid 

12 attention interrupt during PRMPT I/O 

If an invalid userid is specified, a diagnostic is issued and the module 
returns to the caller. If the RCR CLOSE fails, a minor system error is 
issued followed by a return to the caller. 

SYSER Code Severity Explanation 

05062501 Minor RCR CLOSE failed. 

05062502 Minor Significance error in millisecond value of CPU 

time. 

SYSTEM CQOT?ROL BLOCK USAGE : 

Task Common (CHATCM) 

Task Data Definition Table CCHATDT) 

Task Status Index CCHATSI) 

User Table (CHAUSE) 

Active User Limits Table (CHAAUL) 

Data Control Block (CHADCB) 

Shared Data Set Member (CHASDM) 
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Active User List Table CCHAAUL) 
Data Control Block (CHADCB) 
Shared Data Set Member (CHASDM) 
• Interrupt Storage Area (CHAISA) 



^ User Control (CZAMZ) 



The User Control routines are responsible for preserving the Command 
System interfaces with nonprivileged programs, for processing the CLIC, 
PAUSE, CLIP, COMMAND, LPCINIT and LPCEDIT macros, for processing the 
ENABLE, DISABLE, END and transient commands and for dispatching func- 
tions of the Text Editor. In addition, it dispatches a LOAD, UNLOAD or 
parameterless CALL command. (See Chart CZ. > 

ENTRIES : There are twenty- three entry points to this routine: 

1. CZAMZl is entered by a type-I call from the Command Analyzer's 
BUILTIN Call Processor and from other routines in CZAMZ to dispatch 
a nonprivileged module. Register 1 points to a builtin procedure 
key (BPK) . 

2. CZAMZ 19 is entered when a nonprivileged module issues a RETURN 
macro to rettirn to the Command System. 

3. CZAMZ2 is entered when a nonprivileged module issues an EXIT macro. 

4. CZAMZ3 is entered from the Attention Handler when an attention 
interrupt is received and the user enters a command other than one 
of the attention response commands or ABEND. It is also entered 
from DIAGNO (CZAHA) . 

5. CZAMZ5 processes a CLIC or PAUSE macro. 

6. CZAMZ6 processes a CLIP or COMMAND macro. 

7. CZAMZ7 is the command entry to RTRN processing. RTRN is a stack 
manipulating command. 

8. CZAMZ8 processes the EXIT command. EXIT is a stack manipulating 
command. 

9. CZAMZIO processes the STACK command. STACK is a stack manipulating 
command. 

10. CZAMZll processes the PUSH command. PUSH is a stack manipulating 
command. 

11. CZAMZ12 cancels attention levels for the input name. Called by 
CZAMZl. 

12. CZAMZ13 is a service routine for other User Control modules. It 
obtains a recursive save area. 

13. CZAMZ14 deletes LPC programs from CZAMZ's stack. 

14. CZAMZ15 is the ABEND and task monitor entry to RTRN processing. 

15. CZASWl processes an LPCINIT macro. 

16. CZASW2 processes an END command. 

17. CZASW3 processes a transient command. 

18. CZASW4 processes an LPCEDIT macro. 
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19. CZASW5 is entered by the Command Analyzer to dispatch a function of 
the Text Editor. 

20. CZASW9 processes an implicit END situation. 

21. CZASWIO processes an ENABLE command. 
22.. CZASWll processes a DISABLE command. 

23. CZBTGl dispatches a LOAD, UNLOAD or parameterless CALL command, 

MODULES CALLED : 

User Prompter CCZATJl) Writes error messages to the user's terminal. 



Command Analyzer 
CZASAl 

CZASA6 

CZASA7 

Source List Handlers 
CZASC6 



Analyzes input. 

DIRs the system attention handler CUSATT) 

SIRS the system attention handler CCLATT) 



Deletes remainder of line in source list for 
EXIT. 



GATE CCZATCl) 



Writes module names to SYSOUT for STACK. 



OLE Processor (CZVJQS) Puts a QLE to the Com.mand Analyzer C CZASAl) 



CLEANUP CCZCJCU) 



Edit Initializer 
CCZB3E1) 

DATALINE CCZASGl) 



EXITS: 



Performs Task Monitor cleanup for the attention 
response commands. 



Called by LPCINIT to initialize the Text Editor, 
Prompts for input into a data set. 



Exits are described in the following section. 

OPERATION : CZAMZl is invoked to process calls from the Command System 

to nonprivileged routines. In CZAMZP, it maintains a push-down stack of 
save areas, with a maximum of ten levels. One level is associated with 
each call. Each level contains the backward pointer to CZAMZl 's caller, 
a copy of ISALSl at the time CZAMZl is called, and a save area the 
called routine uses to store CZAl^JZ's registers. 

The User Controller is called at CZAMZl to process calls from the 
Command System to nonprivileged routines. In CZAMZP it maintains a ten- 
entry stack (one level of entry for each level of call allowed). Each 

level contains the backward pointer to the routine that calls CZAMZl, a 
copy of ISALSl cit the tinie CZAMZl was called, and other pertinent infor- 
mation about the previously dispatched module called by CZAMZl. It then 

sets up the r.cj me infornation in its PSECT for the module to be 

dispatched. 



On entry, i 
programs is in 
C ISALSl is sav 
the current pr 
also be saveii 
celed, this lo 
this routine, 
previously dis 
the ri.odule abo 



f the stack is not full, the count of currently active 
cremented, and the ISALSl is saved in the CZAMZP stack. 

od because certain fields in it are overlaid to dispatch 
ogranu ) The status of PIREC, LPC, USATT, and AETD will 
in the stack- If the previous invocations should be can- 
utine branches out to CZAMZ14 to cancel the levels for 

Alter saving pertinent information in the stack for the 
f)atcheci inodule, CZAMZl sets in its PSECT information about 
ut to b€^ dispatched. Status information saved includes 
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the names of the routine being invoked (whose address is placed in 
Register 0) ^ the address of the caller of CZAMZl, the current source 
list pointer (CZAMZL), and dispatch option flags CCZAMZF) . This routine 
is marked as active CCZAMZF=X" 80* ) and the pointer to the current stack 
entry CCZAMZA) is incremented. 

To enable the routine about to be dispatched to return to the Command 
System correctly, this routine set Register 14 in the ISA to point to 

CZAMZ19, The address of the routine to be dispatched is stored in 
Register 15 « The VPSW also is set to point to the routine to be dis- 
patched. If parameters are included in the call. Register 1 points to 
the parameter list. The address of the user portion o^f the current save 
area is saved in Register 13. This routine then returns control to the 
Task Monitor, through a field in New Task Common CNTCTMR) . The Task 
Monitor then issues a LVPSW from ISALSl and dispatches the routine. 

CZAMZ19 is entered when the nonpriviliged routine dispatched by 
CZAMZl issues a RETURN macro. Its only function is to issue the EXIT, 
NOMSG macro to return control to CZAMZ2. 

CZAMZ2 is the EXIT SVC processor. If its caller is the Task Monitor, 
it saves Register 13 (pointer to the save area the Task Monitor used 
when it last called the Command System) in New Task Common CNTCTMR). 
Then (or for another caller) , if USATT is active, this routine calls the 
Command Analyzer at CZASA7 to release control of the attention inter- 
rupts (CLATT) . If no other programs exist in the stack (level=0), this 
routine performs a CLEANUP, processes a QLE to the Command Analyzer, 
restores Register 13 from NTCTMR and returns to its calling routine. 

However, if other levels are filled in the stack, this routine finds 
the first active level, moves the stack status information into the cur- 
rent fields, clears the stack entry, and resets the pointer so that this 
previous entry becomes the current one. If the exiting module issued a 
PUSH command, this routine exits to a. special entry point in the Atten- 
tion Handler, CZASB3, which causes a return to the Command Analyzer via 
QLE- Otherwise, Register 13 is restored for CZAMZl*s calling routine 
and this routine exits. 

CZAMZ3 (sometimes called INTERVENE) is called by the Attention Hand- 
ler to process a command string entered after an attention interruption 

if that command string is not one of the system-defined responses to 
ATTN (such as STRING). CZAMZ3 uses the Command Analyzer to process this 

string, but first, if the user has specified a USATT, this routine calls 
the Command Analyzer at CZASA7 to SIR the system attention handler 

CCLATT) . It then specifies a non-OBEY entry by setting Register to 0. 

If a recursive save area is not free, it calls CZAMZ13 to provide a 
recursive save area. 

CZAMZ3 does not expect a return from the Command Analyzer unless the 
command in the input string is GO. In case it is GO, this routine sets 
CZAMZL in Register 6 before calling the Command Analyzer at CZASAl. On 
return, CZAMZ3 returns the recursive save area it acquired, and, if the 
currently active program had issued a. USATT, calls the Command Analyzer 
at CZASA6 to DIR the system attention handler. 

CZAMZ5 processes a CLIC or PAUSE macro; CZAMZ6 processes a CLIP or 
COMMAND macro. Both call CZAMZ3, passing it a null parameter string. 
On return, both return to the Task Monitor. (Note: If the task is non- 
conversational, CZAMZ5 bypasses the call to CZAMZ3.I 

Attention Command Processing ; The User Controller contains the logic 
for processing four stack manipulating comnends — RTRN, EXIT, STACK, 
and PUSH. 
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• RTRN is processed by CZAMZ7/CZAMZ15. This .cominand is used to return 
the user to the coromand system with all previous source lists and 
programs forgotten, thus allowing him to bypass the normal comple- 
tion of these prograirs and source lists. This function is required 
within a multi-level nonprivileged environment to give the user con- 
trol over the level at which he is running. This command forces all 
active nonprivileged programs to exit, deletes all user SIRs and 
AFTDs, The user is returned to level zero. The Text Editor, if 
active, remains active on completion of RTRN. A CLEANUP is per- 
formed, and the command (or macro) processing ends by processing a 
QLE to the Command Analyzer and returning to the Task Monitor. 

• E^IT is processed by CZAMZ8 . This command Cor macro) forces the 
currently active, user- invoked, nonprivileged program to exit. 
Again the user is allowed to bypass the normal completion of the 
currently-active nonprivileged program. EXIT checks that the user 
level is greater than zero (which it must be) , and if there is any 
user SIR routine active CITBACT does not equal zero) . If there is 
an active routine and SIRTEST=N has not been specified, the opera- 
tion is terminated. EXIT returns control to the Command System so 
that the command string from which the nonprivileged module was 
invoked will be resumed. This means that no commands which follow 
EXIT will be executed. The Command System will respond with an 
underscore; the user can resiime execution of the previous level of 
nonprivileged program. 

• STACK is processed by CZAMZIO. This command displays on SYSOUT all 
currently active user-invoked module names. The active level number 
must be greater than zero. If there are any active nonprivileged 
SIR routines, the message "SIR ROUTINE ACTIVE" is displayed. The 
module names are displayed in descending order from the currently 
active down. SCAN and END routines will be uniquely identified. 
GATE is used to write the module names, one line at a time. Atten- 
tion is checked for after each line? attention terminates the 
operation. 

• PUSii is processed by CZAMZll. This command saves the status of the 
last non- completed, nonprivileged program in the system save area or 
stack (providing it is not a Text Editor command) . The system save 
area stack must not be full, and, if there is any user SIR routine 
active (with SIRTEST=N not specified) this operation is cancelled. 
The current program is moved into the CZAMZP save area stack, and 
the currently active level number is incremented by one. In the 
next entry of the privilege stack, this routine sets the address of 
a routine which QLEs to the Command Analyzer, and then exits to tht 
Task Monitor- (See CZAMZ2.) This enables a dispatched routine to 
be interrupted, then PUSHed, then run to completion twice. 

Controller Service Routines : Three routines within the User Ccntrolier 
perform services for other Controller routines. 

• CZAMZ12 is entered to delete previous entries from the program stack 
for a particular module name. If a stack entry is found with this 

name, it is marked inactive and tne count of active programs 
CCZAMZB) is reduced by one. The user is informed of the deletion 
before CZAMZ12 returns to the calling routine. 

• CZAMZ13 expands thci save area stack as required through GETMAIN. 
These recursive save areas are necessary since CZAMZ3 and the Atten- 
tion Handler CCZASB) , both of which obtain save areas, may be reen- 
tered before they have been returned t o by their called routines. 

• CZAMZll is entered to delete previous entries from the program stack 
^y type of program (all LPCs could be deactivated, for example)- If 
a stack entry is found marked as a type to^ be deleted, the entry is 
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marked inactive and the count of active stack entries is decreased 
(CZAjyiZB) . 

User Controller LPC Processing : The processing of the LPCINIT and LPCE™ 
DIT macros, of the END and transient commands, of the text editor func- 
tions, etc. is performed by the section of the User Controller whose 

entry points begin CZASW. 

CZASWl, processing the LPCINIT macro, checks whether a new LPC is 
permitted, A new LPC is permitted if the LPC in progress indicates that 
interrupts are permitted or if no LPC is in progress. If the LPC in 
progress indicates that interrupts are permitted, the implicit END rou- 
tine (C2ASW9) is invoked. Then processing continues as if no LPC were 
in progress. Otherwise or afterwards, the name of the LPC to be initia- 
lized is recorded in the Transaction Table for future use. The address 
of the DCB is stored in the Transaction Table, The address of the END 
command preprocessor and postprocessor routines, the implicit END rou- 
tine and the transient command routine are saved if they are supplied by 
the caller. If no implicit END routine is defined, the END preprocessor 
is saved as the implicit END routine. The Edit Initialization routine 
CCZBSEl) is linked to, and, on return. Register 13 is restored from 
NTCTMR, and control is passed to the calling routine. If a new LPC is 
not permitted, the user is prompted with the name of the current LPC and 
asked whether he wishes to terminate it. 

To process an END command, CZASW2 checks whether an LPC is in pro- 
gress. If not, the user is prompted and the routine returns to the 
caller via the RETURN macro instruction. If the current routine speci- 
fied no END preprocessor routine, the name of the current LPC in the 
Transaction Table is cleared, CZAMZ14 is called to clear the LPCs out of 
the stack, and the END postprocessor is invoked via a call to CZAMZl, 
Afterward, an exit is taken. If there is an END routine specified, it 
is invoked through CZAMZl, the current LPC name in the Transaction Table 
is cleared, the END postprocessor is invoked if it exists. Afterward, 
an exit is taken. 

CZASW3 is the transient command processor. If no LPC is in progress, 
the user is prompted and an exit is taken. If no transient command pro- 
cessor is specified by the LPC, the user is prompted and an exit is 
taken. Otherwise, it reads a command from the source list via the SYSIN 
macro instruction, and the transient command processor is invoked, via 
CZAMZl, and an exit is taken. 

CZASW^i, processing the LPCEDIT macro, saves Register 13 Caddress of 
the routine that called CZAMZl) in NTCTMR. Then, if no DCB is open, it 
calls the implicit END routine (CZASW9), prompts the user that the LPCE- 
DIT has been cancelled, and exits to CZAMZ2. If there is neither an 
active LPC nor any active programs, this routine also prompts the user 
and exits to CZAMZ2. However, if ail is in order, this routine sets up 
return linkage to itself for CZAMZ2 to follow and calls CZAMZ2 to pop 
tne stack. In this case, CZAMZ2 returns to CZASW4 , which, after acquir- 
ing a recursive save area Cif one is needed) from CZAMZ13, links to the 
Text Editor DATALINE routine CCZASGl) to prompt for input. When DATA- 
LINE returns, this routine exits to the routine that called CZAMZl, 

CZASW5, entered as a result of a Text Editor command, checks to see 
if an LPC is in progress. If not, the user is prompted and an exit is 
taken. If there is an active LPC, but no open DCB, CZASW9 is called to 
end the LPC, the user prompted, and exit taken. Otherwise, the BUILTIN 
procedure key (BPK) is altered to contain the adcons for the proper pro- 
cessing routine. Ihe processing routine is then called via CZAMZl. 
Upon return to CZASW5, Register 1 is checked to sec? if a follow-on rou- 
tine was specified. It no follow-on routine is spc^cified, an exit is 
taken. If a follow-on routine is specified, CZASW5 loops, calling 
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follow-on routines as long as they are specified. The routine returns 
to the calling routine via the RETURN macro instruction • 

C2ASW10 sets the ENABLE/DISABLE flag, CZASWX, to X'FF» to enable the 
Text Editor and returns to the calling routine. 

CZASWll sets the ENABLE/DISABLE flag, CZASWX, to X^OO* to disable the 
Text Editor and returns to the calling routine. 

CZBTGl checks to see if there is a name to load or unload. If not, 
the current name is taken from the AAAWOD field of Table AAA. If 
Register 1 on entry pointed to part of the UNLOAD BPK, an UNLOAD SVC 
CSVC 123) is issued and the routine returns to the caller via the RETURN 
macro instruction. If an unload operation was not requested, the adcon 
group is armed and a LOAD SVC is issued (SVC 127). If, upon return, the 
adcon group is still armed, it is assumed that the load operation was 
unsuccessful and the routine returns to the calling routine. A check is 
made to see if this was a request for a load operation; if so, the rou- 
tine returns to the calling routine. Otherwise, a transparent call to 
CZAMZl is issued to dispatch the module to be called. Since this call 
to CZAMZl is transparent, CZAMZl returns to the caller of CZBTGl rather 
than to CZBTGl itself. 

ERROR CONDITIO NS: The routine checks for the following conditions: 

1. Pushdown stack capacity exceeded. 

2. Page unavailable in which to build recursive save areas. 

3. Command requires that LPC be previously defined. 

4. Name to be loaded exceeds eight characters in length- 

5. DCB not previously opened. 

SYSTEM CONTROL BLOCK USAGE : 

BPK DSECT (CHABPK) 

Data Control Block CCHADCB) 

Stack Entry CCHASTK) 

Interrupt Storage Area CCHAISA) 

TABLEA CCHAAAA) 

Profile Character and Switch Table CCHAPCT) 

Source List Page Header (CHASLP) 

Sublist Header CCHASLH) 

New Task Common (CllANTC) 

Transaction Table (CBATRN) 



^ VAM Tape Comnk in d Routine CCZAET) 



This routine processes requests to copy a VPM data set on tape as a 

t)hysical sequential data set (VT — VAB' to Tape); to restore a physical 
sequential copy of a VAM data set from tape to direct access storage CTV 
— Tape to VAM) ; or, to produce <in identical copy of a VAM data set on 
direct access storage CVV — VAM to VAF) . (See Chart DA.) 



ENTRIES 

CZAETl - 
CZAET2 - 
CZAET3 - 

CZAET4 - 
CZAET5 - 
CZAET6 - 

CZAET7 - 
CZAET8 - 



VT command entry 
TV command entry 
W command entry 
VT call entry 
TV call entry 
W call entry 
EODAD entry 
SYNAD entry 
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MODULES CALLED 



CHEKDS (CZAAC2> 
MSGWR (CZAAD2) 
GATWR CCZATCl) 
DDEF (CZAEAl) 
CATALOG (CZAEIl) 
ERASE CCZAEJl) 

RELEASE CCZAFJl) 

LOCATE CCZCFLl) 
GETMAIN CCZCGA2) 

FREEMAIN CCZCGA3) 
ADDCAT CCZCFA) 
WRTM CCZCRBS) 
BUMP CCZCABl) 

OPEN CCZCLAO) 
CLOSE CCZCLBC) 
PAIR (CZACSl) 



Validates data set name. 

Issues system messages. 

Writes messages on SYSOUT. 

Generates JFCBs. 

Catalogs output tape (copy) data set. 

Erases output data set if copy not completed 
normally. 

Releases JFCBs generated for the input or output 
data sets. 

Finds catalog entry for data set. 

Allocates buffer space. 

Releases buffer space. 

Updates DSORG field in VAM output data set. 

Writes tapemarks. 

Removes mounted volume. 

Opens DCB. 

Closes DCB. 

Creates an entry in the ABEND Interlock Release 
Table. 



BSA LOCK CCZCEJl) Set a Virtual Memory Lock. 

BSA LOCK CCZC£J2> Clears a Virtual Memory Lock. 

DSCB RDWR (CZCEMl) Writes out a DSCB Page. Reads one in. 

EXITS: The routine always returns to the calling routine, via the 
RETURN macro instruction. 

OPERATION : The VAM tape module is entered at one of six entry points 
for the command or CALL specified by the user. A parameter list with a 
pointer to the address of a character string containing the name of the 

data set to be copied and, optionally, the name to be assigned to the 
output data set, is .required. Once the paranieters have been located, 

processing continues as required by the particular request. 



MA^ t o I'a pe P r oc e s s i nq : 



name 


ot . 


cat a 


ioge 


Si't , 


a J 


JFCH 


nuj^i 


Ml ne 


-t.rci 


Ji'CV. 


irv 


t L e i 


a, t 


t ion 


Hi 


tne 


1 1 rv. 


string, ■ 


dt e^ 


X he 



The input dsname is verified. It must be the 
If a JFCB does not exist and the data set is 

For the output data 
i^{)ecified within this 



a VAM data set. 

d, a JFCb is created by a call to DDEF, 

FCB must be found with ddname=DDVTOUT. 

t be phyr, ical sequential organization and a tape volume on a 

ck drive. If this is the first copy operation for the output 

dicated by the absence of the identification ♦%*% in the TDTDSM 

he output dsname used is the name in the JFCB. The identifica- 

inserted, out no other fields in the JFCfi are modified. If not 

t copy operation, tlie output dsname is taken from the operand 

or defaulted, and inserted into the DDVTOUT JFCB. Also updated 

tile sequence number (TDTFSQ) and catalog flag CTDTCFL) . 



Section 4: Command Routines 175 



Once the data sets are opened, the input JFCB C256 bytes) and the 
coiraoon portion of the input data set's format-E DSCB (37 bytes) are 
written as the first record (4096 bytes) on the output tape. The 
remainder of the record is padded with zeros. 

Data pages to be copied are located by indexing through the RESTBL 
for the input data set. For each page to be written, a SETXP S¥C is 
issued with an external address from the RESTBL, to make use of the pag- 
ing Eiechanism for input, and is written to tape as a 4096 t^te record by 
BSAM WRITE, Eight buffers are used to overlap processing and input/ 
output time. After the tape operation is completed, processing con- 
cludes at a common point. See Final Processing below. 

Tape to VAM Processing ; The input dsname is verified. It roust be the 
name of a physical sequential data set residing on a nine-track tape. 
If a JFCB for the data set cannot be found, and the data set is cata- 
loged, DDEF is called to create one. The output dsname roust be for a 

new VAM data set. If a JFCB is found in the TDT chain, it is used; 
otherwise, one is created by a call to DDEF. An output JFCB is required 
from the user only if the data set is to be restored to a private VAM 
volume. 

After the data sets have been opened, the first record is read to 
verify the tape format and to make available the DSCB data necessary to 
recreate the original data set. Data records from the tape are input by 
BSAM READ and output by VSAM PUT. (The output data set at this point is 
treated as a VAM sequential, format U, data set.) Processing continues 
in this manner until a unit exception occurs. The EODAD routine outputs 
any remaining records. Processing then concludes as described under 
Final Processing. 

Eight buffers are used. The initial tape read fills all eight buf- 
fers. Subsequently, four buffers at a time are filled as the other four 
are emptied to overlap processing and input/output time. 

VAM to VAM Processing : The input dsname is verified. It must be the 
name of a VAM data set. If a JFCB does not exist and the data set is 
cataloged, a JFCB is created by a call to DDEF. The output dsname must 
be for a new VAM data set. If a JFCB is found in the TDT chain, it is 
used; otherwise, one is created by a call to DDEF. An output JFCB is 
required only if the data set is to be copied to a private VAM volume. 

Both data sets are opened. The common portion of the input data 
set's format-E DSCB (37 bytes) is retained to recreate the data set once 
the copy operation has been completed. Data pages to be copied are 
located by indexing through the RESTBL for the input data set. For each 
page to be output, a SETXP SVC for the buffer pages is issued with an 
external address from the RESTBL (input) to make use of the paging 
mechanism for input, and is written into the output data set by VSAM 
PUT. (The output data set at this point is treated as a VAM sequential, 
format U, data set.) When the copy is complete, processing concludes as 
described under Final Processing below. 

Final Processing : Both data sets are closed and all buffers are 
released. If the data set created on direct access storage is not com- 
pleted correctly, ERASE is called to delete the partial data set. For 
normally completed TV and W operations, the output data set's DSCBs 
reflect the data set just created by VAM Tape and not the original data 
set. To correct this, the format-E DSCB for the output data set is read 
in through a read DSCB routine which is internal to the program. The 
common portion (37 bytes) of the format-E DSCB is updated from the DSCB 
data retained from the original data set. Then the output DSCB is 
rewritten to external storage by PGOUT. Next, the DSORG field in the 
catalog is updated for the output VAM data set. The output tape data 
set is cataloged unless the dsname was preceded by an asterisk (*). The 
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TDTDS2 field for the DDVTOUT JFCB is then filled in with F's. Proces- 
sing is concluded by releasing any JFCBs created by the routine. 

ERROR CONDITIONS : If entry was by macro instruction, a hexadecimal code 
will be returned in general register 15: 

Code Significance 

OC Input dsnanie missing. 

10 Dsnaroe invalid. 

1^1 Dsname not generation data group. 

18 Catalog error. 

IC Dsname not fully qualified. 

20 VAM dsname contains ♦. 

2M DISP=OLD in DDVTOUT, 

28 Dsname not VAM. 

2C Dsname not extant. 

30 DDVTOUT not extant. 

34 Volume not 9~track tape. 

38 No data to copy. 

3C Unrecoverable output tape error. 

40 Unrecoverable input tape error. 

44 DSCB error. 

48 Unauthorized use of system data set name. 

4C Tape volume not mounted. 

50 Punctuation error in operands. 

54 Dsname in DDEF not DDVTOUT. 

58 New dsname not unique. 

5C No direct access space for new data set. 

60 Output VAM data set contains data. 

64 Dsname not PS. 

The routine checks for acceptable operands and, when called at a com- 
mand entry point, notifies the user, through NSGWB or GATWR, of any 
errors found. Messages issued through MSGWR are identified by a message 
code preceding the message. For precise texts see System Messages . 

NORMAL COMPLETION : If entry was by macro instruction, a hexadecimal 
code will be returned in general register 15: 

Code Significance 

00 Normal completion - VT. 
04 Normal completion - TV. 
08 Normal completion - W. 

The routine, when called at a command entry point, notifies the user, 
through MSGWR, of a successful completion. The messages are for the VT, 
TV and W commands, respectively. 



Message 
Code 

BFOl 

BF02 

BF03 



Text 

Cdsname^^) COPIED AS Cdsname^) ON TAPE, FSQ (fsq), VSN Cvsn) . 

Cdsnaroej.) COPIED AS (dsnamea) FROM TAPE, FSQ, Cf sq) , VSN 
(vsn) . 

Cdsnane^) COPIED AS (dsnamea) - 



SYSTEM CONTROL BLOCK USAGE ; 

Catalog SBLOCK CCHACCC) 
Format-E DSCB CCHADSE) 
Interrupt Storage Area (CHAISA) 
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Symbolic Device Allocation Table CCHASDA) 

Task Common CC HATCH) 

Task Data Definition Table (CHATDT) 

Data control Block CCHADCB) 

RESTBL Header (CHiURHD) 

DCB Header CCHADHD) 

►VSS Command Routine (CZAVR) 



This routine checks the user's authority code to determine if he may 
use the Virtual Support System CVSS) . In order to use VSS^ the user 
must have an authority of O or P. (See Chart DB.) 

ENTRY ; CZAVRl - normal entry 

MODULES CALLED : 

User Prompter (CEATJl) Issues diagnostic messages to SYSOUT when errors 

occur. 

READ CCZCPE) Reads the user table for user^s entry. 

EXITS : This routine normally exits to TSSS via an SVC 83. Upon return 
from TSSS, exit is made to the calling routine via the RETURN macro 
instruction. If an error occurs, the routine exits to the calling rou- 
tine via RETURN. 

OPERATION : Upon entry, the task's userid is obtained. The User Table 
is READ and the user's authority is examined. 

If it is O or P, exit is made to the Time Sharing Support System 
CTSSS) . otherwise, an insufficient authority diagnostic is issued, and 
control is returned to the caller. Upon return from TSSS, control is 
returned to the caller. 

ERROR CONDITIONS ; The userid of the user issuing the command is checked 
for the proper authority CO or P) . If the user does not have the proper 
authority, a diagnostic message is issued. If the task callinq VSS is 
nonconversational, a diagnostic is issued, and control is returned to 

the caller. 

SYSTEM CONTROL BLOCK USAGE : 

Task Common (CHATCM) 

Data Control Block (CHADCB) 

User Table CCHAUSE) 
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SECTION 5: MACRO INSTRUCTION HANDLING 



Tiie command system supports macro instructions which allow object 
programs, during execution, to use certain command system facilities 
while still retaining control over processing. Included with these 
macros is the ATPOL macro instruction, used in checking for attention 
interrupts before GATE calls. The names and functions of these macro 
instructions are listed in Figure 12. 

Macro instructions supported by the command system may be grouped 
into four general categories: 

1. Those calling command routines. 

2. Those calling command support routines (ABEND, FINDJFCB, and 
FINDDS) . 

3. Those calling subsystem support routines (GATRD, GATWR, GTWAR, 

GTWSR, GTWRC and MSGWR) . 



Macro 
Instruction | 

Name 

J 


Function 

L -. - J 


Routine to Which 
Macro Instruction 
Links 


1 
ABEND 


To abnormally terminate a task. 


ABEND 


ATPOL 1 


To check whether an attention 
interrupt is pending. | 


None. Macro expan- 
sion coding performs 
action 


CAT 


To create or update an entry for 
A data set in the catalog. To 
create a generation data group 
index level. 


CATALOG Command 
Routine 


CDD 


To retrieve and process one or 
more prestored DDEF commands. 


CDD Command Routine 


CDS 


To make a copy of an already 
existing data set or member of a 
partitioned data set. 


CDS Comirand Routine 


DDEF 


To define a data set and 
1 describe its characteristics to 
the system. 


DDEF Command Routine 


DEL 


To delete one or more data set 
1 entries from the catalog. 


ERASE/DELETE Command 
Routine 


ERASE 


! To erase the direct access 
storage assigned to a data set 

1 and remove the data set entry 
from the catalog - 


ERASE/DELETE Command 
Routine? 


FINDDS 


To locate a JFCB or to create a 
JFCB for a cataloged data set. 


1 FINDDS 



L . ^ X , ^ ^ . . -i— . 



_, ..^^ «.J 



Figure 12. Macro instructions supported by the command system 
(part 1 of 2) 



Section 5: Macro Instruction Handling 179 






Macro 
Instruction 
Name 

k 

FINDJFCB 



GATRD 
GATWR 
GTWAR 



GTWSR 



GTWRC 



MCAST 



MSGWR 



PR 



PU 



REL 



VSENDR 



wr 



WTL 



WTO 



WTOR 



Function 



To locate a JFCB in the Task 
Data Definition Table and 
optionally, insure that correct 
volume Cs) is mounted. 

To read a record from SYS IN, 

To write a record on SYSOUT. 

To write a record on SYSOUT, 
then read the next record from 
SYSIN. 

To write a record on SYSOUT then 
read record from terminal. 

To write a record on SYSOUT with 
carriage control character supp- 
lied by program which issued 
macro. 

To make changes in the profile 
character and switch table. 

To issue a message to SYSOUT 
and, if specified, fetch the 
response. 

To print a data set on a high- 
speed printer. 

To punch a specified data set 
onto cards. 

To delete the JFCB for a data 
set, to release the I/O devices 
associated with a private data 
set, or to remove a job library 
from the program library list. 

To send an intertask message and 
await the response. 

To write a data set onto tape 
for subsequent offline printing. 

To write a message in the opera- 
tor log. 

To write a message on the opera- 
tor console and in the opera- 
tor's log. 

To write a message on the opera- 
tor console and in the opera- 
tor's log and get the response. 



Routine to Which 

Macro Instruction 
Links 

FINDJFCB 



GATE Routine 
GATE Routine 
GATE Routine 

GATE Routine 
GATE Routine 



MCAST/MCASTAB 
Routine 

MSGWR Routine 



PRINT Command 
Routine 

PUNCH Conmand 
Routine 

RELEASE Command 
Routine 



XWTO Routine 



WT Command Routine 



XWTO Routine 



XWTO Routine 



XWTO Routine 



Figure 12. Macro Instructions Supported by the Command System 

(part 2 of 2) 
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4. Those used to communicate with other tasks CWTO, WTL, WTOR and 
¥SENDR) . 

A detailed description of the command routines and command support 
routines can be found in Section 4, with the exception of the WT, PU and 
PR command routines. These routines and the XWTO routine can be found 
in the Operator Task and Bulk I/O FIM , GY28-20 47. The GATE routine is 
described in Section 2. 

Macro Instructions that Call Command Routines 

Using CAT, CDD, CDS, DDEF, DEL, ERASE or REL macro instructions 
causes execution of the corresponding command routine. The effect is as 
if the command itself had been issued; but the code that links to the 
command routine, as a result of macro expansion, is part of the user's 
object program and thus active only at object time* The linkage from 
the object program to the comn^nd routine is direct; the command analyz- 
er and executor is not used for this linkage. 

The command routine itself performs in the same way whether it is 
processing a command or a macro instruction. There are two notable 
exceptions to this statement: 

1. The command routine issues no message if it has been entered by a 
macro instruction. Instead, it supplies a return code to show if 

an error was found and, in some cases, to indicate the type of 
error. Error handling is left to the object program that issued 
the macro instruction. 

2. The macro expansion Cthat is, the object code generated for the 
macro instruction) links to a special entry in the command routine, 
not to the entry used in normal command processing. This lets the 
routine prepare for macro instruction processing; that is, it sets 
indicators as needed so that no messages will be issued, and makes 
adjustments to fetch its input parameters. CUnlike the command 
analyzer and executor, which supplies the address of the input, the 
macro expansion furnishes a pointer to a location containing the 
address of the input.) 

When the command system routine is finished, it returns control to 
the calling object program Cunless a system error occurred). An appro- 
priate code will be set upon return. 

M acro Instructions that Call Command Support Routines 

The ABEND, FINDJFCB, and FINDDS macro instructions call upon the 
ABEND, FINDJFCB, and FINDDS command support routines. Operation of 

those routines is described in Section 4. Entry to there is always via 
macro instruction calls, which require no special macro instruction 
provisions. 

The FINDJFCB and FINDDS macro instructions are for system component 
use only. CA system component is any component supplied as paxt of the 
time sharing system or added through a new system generation, ) The 
ABEND macrO' instruction is normally for system component use, but user 
programs may also enploy it. 

Entry to the command support routine occurs during exe^cution of the 
ODject program making the call, via linkage generated by the macro 
expansion. The support routine is then executed as described in Section 
4. Return may or may not be made at this point, depending on the macro 
instruction issued and on whether or not serious errors were found. An 
ABEND macro instruction terminates the task of the calling object pro- 
gram, so there is no return. Certain errors found during FINDDS or 
FINDJFCB execution will cause an abnormal termination (via ABEND) of tne 
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calling task, but otherwise return is made to the calling object 
program. 

Macro Instructions that Call Subsysteon Support Routines 

The GATE routine handles five macro instructions: GATRD, GATWR, 
GTWARp GTWSR and GTWRC, These macro instructions may be employed by any 
user, privileged or not; the GATE routine itself does not check privi- 
lege, ( Privilege here means the ability to access certain areas of 
storage. Only systems programs may be privileged; user programs are 
nonprivileged. ) 

Entry to GATE is made at the macro entry point; an operation code 
generated by the macro expansion indicates which of the five macro 
instructions is being processed. For a detailed description of GATE 
operation, see Section 2. Upon completion of GATE, return is made to 
the calling object program. 

The ATPOL macro instruction is unusual in that the expansion itself 
provides the object code that is executed when the ATPOL is honored. No 
call is made. ATPOL is intended to be used by privileged system pro- 
grams before linking to GATE. If ATPOL finds an attention interrupt, it 
returns to the designated location in the calling program. If there is 
no attention interrupt at this time, it returns to the next instruction 
in the calling program. Usually, the next instruction is a linkage to 
GATE. 

Macro Instructions That Communicate With Other Tasks 

The XWTO routine performs the actions requested by four macro 
instructions: WTO, WTL, WTOR and VSENDR. WTO, WTL and WTOR each 
involve some sort of communication with the system operator. The VSENDR 
macro instruction is used to communicate with any specified task. The 
expansion of these macro instructions results in linkage to XWTO, with 
an operation code set to indicate which macro instruction is to be pro- 
cessed. XWTO will then carry out the requested action before returning 
control to the calling object program. 
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SECTION 6: SOURCE LANGUAGE PROCESSING 



The Language Processor Controller (LPC) serves as the link between 
the user and the language processors. It is entirely transparent to the 
user, for he appears to be communicating directly with the language pro- 
cessor he has chosen. Actually, LPC gathers the input parameters for 
the language processor, loads the processor, and passes its parameters 
to the processor. The language processors call upon LPC for source 
lines, and they use LPC to issue diagnostic messages and invite 
corrections. 

LPC consists of three routines: 

LPCMAIN 

has a separate entry point for each language processor, collects 
the input parameters, calls the language processor and stores the 
object module in a program library. 

GETLINE 

receives the source lines one at a time from the user and creates a 
source data set (or takes the source lines one at a time from a 
source data set) , and conversationally modifies the source data set 
if required. 

PUTDIAG 

collects diagnostic messages from the language processor, and 
issues them if appropriate. 

When the user calls upon a language processor, LPCMAIN is loaded and 
entered at the proper entry point for the requested processor. LPC 
reads the given input parameters, checks them for validity and consis- 
tency and, if necessary, issues diagnostic messages and prompts for pa- 
rameter reentry. LPC then creates data sets for the source and listing 
lines. It sets up a parameter list and calls the initial phase of the 
requested processor (thereby loading it) . 

The processor calls GETLINE whenever it wants an input record. GET- 
LINE either fetches this from SYSIN or from the source data set, depend- 
ing on whether or not the data set is prestored. 

When diagnostic messages have been issued for source statements and 
the user enters corrections, GETLINE puts these corrections into the 
source data set and informs the language processor that corrections have 
been made. The language processor may at this point restart processing 
at some earlier point in the source data. GETLINE detects this "back-up 
request" and takes statements from the source data set as long as there 
are records in it; then GETLINE requests additional input from the user. 

PUTDIAG is called by the language processors whenever they want to 

issue a message to SYSOUT. In conversational mode, PUTDIAG stacks these 

diagnostic messages until the language processor calls GETLINE for a 
line of input; then the diagnostic messages are sent to the user, and 
the keyboard is unlocked so that he can enter corrcictions. If the diag- 
nostic message stack kept by PUTDIAG becomes full, all diagnostic mes- 
sages are printed immediately (except for the last one) so that more can 
be stacked and issued by GETLINE. 

When the processor has reached the end of its first phase of proces- 
sing, it returns to LPCMAIN. The source data set is closed unless the 
user wishes to modify it. If he chooses to modify it, LPCMAIN calls 

GETLINE to accept the modifications, and LPC reinitializes the processor 
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Cby calling the appropriate processor entry point) and restarts, using 
the prestored modified source data set as input. If the user does not 
wish to modify the source data set, LPCMAIN calls processor continua- 
tion, and the language processor continues its activities. It roay use 
PUTDIAG to issue further messages, 

When the language processor has finished, it returns to LPCMAIN with 
an error-level code that indicates the severity of errors. LPC sends a 
message to the user telling him the level of the error, and stores the 
object module Cif one was created) in a program library. This library 
is either the last-mentioned JOBLIB data set, or if none has been men- 
tioned, the SYSULIB. 

FREEMAIN is called to free some of the storage collected by the lan- 
guage processors and then LPCMAIN returns control to the Task Monitor. 

Since LPC and the language processors are all nonprivileged user pro- 
grams, they can be interrupted by an ATTENTION at any point; thus the 
user can interrupt a language processor, execute a string of commands, 
and restart the language processing. If he modifies his source data set 
while in the command mode, neither LPC nor the language processor will 
be aware of it, and the results are unpredictable. The user may also 
choose to terminate one language processor and immediately call another. 
Before the next language processor is called, checks are made to deter- 
mine if the current language processor has finished its processing- If 
it has not, the source data set is closed, the list data set is erased, 
and any virtual storage reserved for the PMD, TXT, and ISD is released. 

The DEFAULT LPCXPRSS = Y option makes it possible to do several com- 
pilations without returning to the command system between compilations. 
Only the new module name is entered at the end of each compilation. The 
new module uses the same parameters as the original call to LPC. A 
break character or a numeric module name, inserted before the next com- 
mand, terminates express mode and causes a return to the command system. 
DEFAULT LPCXPRSS = N must be entered after returning to the command sys- 
tem or the next assembly or compilation will be in express mode. 



^ LPCMAIN (CFADA) 



LPCMAIN is a nonprivileged program called via the ENTER SVC. After 
validating the operands required by that processor, this routine calls 
the requested language processor to process a source data set. At the 
end of processing, LPCMAIN stores the resulting object module and, if 
requested, prints the listing data set, which includes all output speci- 
fied by the user. (See Chart DC.) 

ENTRIES ; 

CFADA 1 - FORTRAN entry 

CFADA2 - assembler entry 

CFADA3 - linkage editor entry 

SYSASM - alternate assembler entry used by LOAD and RUN 

SYSFTN - alternate FORTRAN entry used by LOAD and RUN 

SYSLNK - alternate linkage editor entry used by LOAD and RUN 

MODULES CALLED : 

GATE CCZATC) CZATCl writes to SYSOUT or reads from SYSIN. 

MSGWR CCZAAD) CZAAD2 issues system messages. 

FINDDS CCZAEC) CZAECl searches the TDT for the JFCB for the source 

or listing data set. 
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DDEF (CZAEA) CZAEA^ creates a JFCB for the source data set, 

listing data set or system macro library • 

DELETE CCZAFJ) CZAFJ deletes a catalog entry for the list data 

set. 

FINDJFCB CCZAEB) CZAEBl searches the TUI for the JFCB for a given 

ddname- 

Virtual Memory CZCGA3 (FREEMAIN) releases virtual storage obtained 
Allocation (CZCGA) for PMD, TXT and ISD. 

ERASE (CZAEJ) CZAEJ7 erases a listing data set. 

CATALOG (CZAEI) CZAEI2 establishes a generation data group for a 

listing data set. 

ABEND CCZACP) CZACPi terminates processing after an error is 

detected. 

Control Dictionary CZASDX finds the default value for LPCXPRSS, 
Handler CCZASD) MODREP. 

Source List Handler CZASC8 gets another line from the Source List. 
(CZASC) 

GETLINE (CFADB) CFADBl modifies a source data set. 

The following are sections of the language processors that may be 
entered: 

Assember Initiation CCEVPAA) , Continuation CCEVPAB), and Early End 
(CEVPAZ) 

FORTRAN Initiation CCEKTAA) , Continuation (CEKTAB) , and Early End 
(CEKTAC) 

Linkage Editor Initiation CCEYIAl), Continuation CCEYOPl) , and Early End 

CCETEEl) 

EXITS ; The routine normally returns to the calling routine, via the 
RETURN SVC. If a system error occurs, the routine exits to ABEND. 

OPERATION: This routine first collects the operands required for the 
specified language processor (FORTRAN compiler, linkage editor, or 
assembler) either by prompting the user for them or by fetching them 
from SYSIN. The Command Controller SCAN package (CZAAC) , assembled as 
part of LPCMAIN with minor modifications, is used to validate the 
operands. If any operands are found to be invalid, the rejected operand 
is displayed, and the user is prompted to again enter the operand set. 
The routine then places the validated operands in a list, calls the lan- 
guage processor, and passes the list to it. LPCMAIN also calls DDEF to 
issue job file control blocks (JFCBs) for the source and listing data 
sets, and opens the source data set as well as the appropriate job 
library, before passing control to the language processor's initial 
entry. If a listing data set was actually produced, LPC determines if a 
generation data group LIST. symbol exists. If not, LPC creates one by 
issuing 

CAT GDG = LIST. symbol, 2,0, E 

and then adding the listing data set just produced to LIST. symbol by 
issuing 

CAT LIST-symbol(-H),N 
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The user is now responsible for printing listing data sets. 

At the end of the source data set scan, the language processor 
returns control to LPCMAIN. The routine then issues any diagnostic roes- 
sages produced for the last statement in the source data set. If the 
task is nonconversational, LPCMAIN merely closes the source data set and 
passes control to the language processor at its continuation entry 
point. For a conversational task, LPCMAIN asks the user if he wants to 
modify his data set. 

If the modify option is selected, LPCMAIN calls the language proces- 
sor early end routine to terminate the completed processing, then calls 
GETLINE to collect the user's modifications and place them in his source 
data set. Upon return, LPCMAIN calls the language processor initializa- 
tion routine to restart processing. The input for this new scan is the 
stored source data set with its modifications included. 

If the continue option is selected, LPCMAIN closes the source data 
set and calls the language processor at its continuation entry point. 

When normal processing ends, the language processor returns control 
from its continuation entry point to LPCMAIN. The routine then stores 
the object module (if one was created) in the user's job library Cor 
user library). Finally, LPCMAIN returns to its calling routine. 

LPCMAIN permits a maximum of seven macro libraries to be passed to 
the assembler; this includes the system macro library and a maximum of 
six user macro libraries. 

When a module is assembled with aliases, duplicates of %»rtiich already 
exist in JOBLIB, the user may, at his option, print the duplicate 
aliases and stow the module in a new JOBLIB. 

If the user enters a dsname, LPC DDEFs a new JOBLIB, stows the 
module, and releases the data set so the next module assembled will go 
into the original JOBLIB. If the user chooses to DDEF his own JOBLIB, 
the module will be stowed in the new JOBLIB and all other modules 
assembled will go into the same JOBLIB. The user may also return to 
Command System and release the JOBLIB containing the duplicate alias or 
erase the member containing the duplicate alias. 

Note: Any batch assembly or compilation will automatically have the 
listings printed unless the user specifies LISTDS=Y (create a list data 
set) . This is not true in conversational mode where the default option 
for LISTDS is Y. 

ERROR CONDITIONS ; The routine checks for acceptable operands and noti- 
fies the user, through MSGWR, of any errors found. For the messages 
issued, see System Messages . 

LPCMAIN may issue these ABEND messages : 

ABEND Message Significance 

GATED RC OR FORMAT KEY Return code from GATE is invalid or unac- 
ceptable, or keyboard/card key of record 
is invalid. 

INVLD RC FROM LP Invalid return code from language 

processor. 

SCAN RC OR DELIM CODE INVLD Invalid return code or undefined delimiter 

code returned from a SCAN routine. 
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ABNORMAL RC FROM FIND 
INVILD RC FROM FINDDS 
GATWR RC INVALID 



Abnormal return code received from FIND, 
Invalid return code from FINDDS. 
Invalid return code from GATE- 



MSGWR RC INVLD 



MS Mi PARAM 



STOW RC ABNORMAL 



Invalid return code from MSGWR. 

Required parameter missing (issued in non- 
conversational task only). 

Abnormal return code from STOW macro 
instruction. 



DD RC ABNORMAL 



Abnormal return code from DDEF. 



If the code returned by the language processor at the end of the scan 
phase indicates an object module will not be produced, LPCMAIN will 
issue any remaining messages for the source data set. In nonconversa- 
tional mode, LPCMAIN will terminate processing as described for the ter- 
mination option. In conversational mode, the user is asked to terminate 
processing or modify his source data set; he cannot continue. Termina- 
tion and modification are handled according to the previous description 
of those options. 

SYSTEM CONTROL BLOCK USAGE ; 

Task Common CCHATCM) 

Task Data Definition Table (CHATDT) 
Data Control Block (CHADCB) 
Interrupt Storage Area (CHAISA) 

TABLEA CCHAAAA) 

►GETLINE Routine CCFADB) 



This routine fetches source lines from SYSIN, or from a prestored 
source data set, and sends them, on request, to a language processor. 
It stores the lines to create a source data set if the data was not 
already stored, and places modification lines in the stored data set. 
In addition, GETLINE issues diagnostic messages stacked by PUTDIAG for 
the language processors and [in conversational mode) prompts for correc- 
tions. (See Chart DD.) 

ENTRIES ; 

CFADBl - normal entry 
CFADB2 ~ SYNAD entry 
CFADB3 - EODAD entry 

MODULES CALLED ; Since GETLINE is a nonprivileged program, all calls are 
made via ENTER SVC. 



GTWAR CCZATCl) 



Issues line number for next line, and also reads in 
that line. 



GATPD CCZATCl) 
GTWSR CCZATCl) 



Reads in next line of data set. 

Issues correction line number, and also reads in the 
next line. 



GATWR CCZATCl) Writes diagnostic messages - 

EXITS: The routine normally returns tc the calling routine, via the 
RETUhN macro instruction. If a system error occurs, the routine exits 
to ABEND. 
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OPERATION ; GETLINE has four distinct modes of operation: 

1. Source data set is prestored; task is nonconversational. 

2. Source data set is on nonconversational SYSIN. 

3. Source data set is prestored? task is conversational. 

^, Source data set is on conversational SYSIN. 

For case 1, the source data set is prestored and the task is noncon- 
versational. In this case, the source lines are read in one at a time 
and passed on to the language processor. No corrections are made and no 
messages are issued. 

In case 2, the source data set is on nonconversational SYSIN. If the 
SYSIN is VISAM, the first seven characters of text are the line number 
(or key) ; GETLINE replaces this number with a new seven character source 
data set line number while creating the source data set. The eighth 
character is assumed to be a format indicator, and is carried with the 
original text. 

It SYSIN is VSPM with variable- length records, it is assumed that it 
was created via the DATA command, and that the first character of each 
record is a keyboard/card- reader indicator. The indicator is left 
intact and a seven-character source data set line number is prefixed to 
the t€ixt. 

In case 3, the source data set is prestored and the task is conversa- 
tional. GhTLINE first tests for pending messages, and if any are found 
they are issued immediately. After all messages are printed, a number 
sign C#) is issued to invite the user to enter corrections. The user 
either types in a modification line or presses the RETURN key to indic- 
ate that no modifications are desired. Once a correction has been made, 
or rejected as invalid, GETLINE requests the next correction until the 
user enters a null line (carriage return only). 

All diagnostic printouts may be inhibited by typing an "I" immediate- 
ly after the number sign (#). A "C, entered immediately after the num- 
ber sign, allows diagnostic printouts but inhibits printing the number 
sign, and the user is not allowed to make corrections. 

It no corrections were made, GETLINE gets the appropriate record from 
the source data set. A test is made to see whether the input line num- 
ber is the same as the last line number sent to the language processor. 
If it is, the next record is taken from the source data set. If the two 
nuii.bers are not the same, reorientation within the data set is 
pertormed. 

In case 4, the source data set is on conversational SYSIN. GETLINE 
first checks for diagnostic nessages and, if any are found, issues them. 
If messages are. issued, the next line number for the source data set is 
printed to prompt the user to enter his source data line. The keyboard 
is unlocked so that the user may enter either the new line or a correc- 
tion line. IL no messages are issued, the active terminal component is 
read. 

If the user has entered a correction line, GETLINE requests another 
line (after making tne correction in the data set). This process con- 
tinues until tne user supplies a normal next line, which is put in the 
data set. 

There are two subroutines internal to GETLINE: GVDIAG and SCNCOR. 
GVDIAG performs the actual issuing of diagnostic messages. It examines 
the count in the diagnostic message stack, and if it is nonzero, issues 
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the messages one at a time. SCHCOR validates and makes corrections to 
data set lines . 

The privileged SCAN routines with slight modifications are ass^nbled 
as part of GETLINE. 

ERROR CONDITIONS ; If called by a language processor, GETLINE returns a 
hexadecimal code in register 15, However, LPCMAIN receives no return 
code from GETLINE. 

Code Significance 

00 Normal return 

0^4 Normal return when alterations are made 

08 No end card in source data set 

12 Abnormal end of task 

GETLINE may issue these diagnostic messages to the user: 



CORRECTION OUTSIDE DATA SET • LINE IGNORED. 
LAST SOURCE LINE IS $01. MISSING END CARD 



CFADB023 PROCEEDING: 
CFADB037 PROCEEDING: 

SUPPLIED. 
CFADB378 PROCEEDING: END OF DATA SET . LAST LINE DELETED WAS $01, 
CFADB379 PROCEEDING: INVALID MODIFICATION REQUEST. 
CFADB388 CANCELED: NEXT LINE NUMBER EXCEEDS 7 DIGITS. 



The routine niay issue these ABEND messages: 



ABEND Message 

LINE NO. FROM LP INVLD 



CASE 3 



LINE NO. FROM LP INVLD - CASE 4 



CASE SW INVLD 



KEY FORMAT INVLD 



TCMCOV OR TCMGRD INVLD 



Significance 

In case 3, line number parameter 
received from language processor 
invalid. 

In case 4, line nuiriber parameter 
received from language processor 
invalid. 

Indicator in PSECT of GETLINE has been 
set incorrectly, showing that PSECT 
has been erroneously destroyed. 

Keyboard/card-reader indicator of rec- 
ord from GATE is invalid. 

Conversational/nonconversational flag 
or record length type flag in task 
common is invalid. 



INVLD EXIT TO SYNAD OR EODAD 



LPC SOS INVALID 



SCAN RC INVLD 



MSGWR RC INVLD 



Exit made to SYNAD or EODAD when 
reason for exit should not have 
occurred. 

A byte within common area of LPCMAIN 
is invalid, meaning that common has 
been erroneously destroyed. C Self- 
checking and debugging aid. Byte 
actually indicates whether source data 
set prestored or not.) 

Invalid return code from a SCAN 
routine. 

Invalid return code from MSGWR. 
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GATE RC INVLD Invalid return code from GATE. 

SYSTEM CONTROL BLOCK USAGE : 

Task Common (CHATCM) 

Data Control Block (CHADCB) 

- PUTDIAG Routine CCFADC) 

This routine receives diagnostic messages from the language proces- 
sors and either sends the messages to SYSOUT via the GATE routine, or 
stacks them as output for GETLINE or LPCMAIN. (See Chart DE.) 

ENTRY : CFADCl - normal entry 

MODULES CALLED : 

GATWH (CZATCl) To write diagnostic messages to SYSOUT* 

EXITS : The routine normally returns to the calling routine, via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION : PUTDIAG either stacks the diagnostics or prints them immedi- 
ately. If the correction request parameter is off (as set by the lan- 
guage processor) , the diagnostic message is issued immediately. If it 
is on, and there is room in the diagnostic message stack, the message is 
moved to the stack. If there is no room, the messages currently in the 
stack are immediately written out, and then the current message is 
stored there. 

ERROR CONDITIONS : PUTDIAG may issue these ABEND messages: 

ABEND Message Significances 

INVALID GATWR RC Invalid return code from GATE. 

MSG DISPOSITION BYTE INVLD Invalid parameter from language processor, 

indicating whether message is to be stacked 
or sent. 

SYSTEM CONTROL BLOCK USAGE: None. 
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SECTION 7: INTERRUPTION PROCESSING 



The routines described in this section handle certain interruptions 
not processed by the task monitor. Those interruptions are: 

1. The initial ATTENTION interruption of a conversational task. 

2. Program interruptions for which no other procedure has been 
specified. 

3. External interruptions (that is, interruptions caused hy messages 
from one task to another) . 

Four routines process these interruptions: 

Interruption Processor (lAIP) 

performs initialization functions for a conversational task. 

Program Interruption Diagnostic Processor CDIAGNO) 

informs tne user %yhen a program interruption occurs - 

External Interruption Processor CXIP/XIS) 

receives and validates intertask messages, then routes them to the 
specified subprocessor . This routine also handles special initia- 
tion functions tor nonconversational , batch monitor, and bulk I/O 
tasks. 

External Interruption Subprocessor CXIMS/XIES) 

writes a message o^n a task's SYSOUT, and also returns an error mes- 
sage to tiie sender of an invalid intertask message. 

lAIP and XIP make ase of the Virtual Memory Task Initialization 
CVMTI) routine to define system data sets and p"Liic devices during task 
initiation. 

The resident supervisor maintains six interruption gueues for each 
task; they are defined in location and extent by fields in the task sta- 
tus index (TGI) . When an interruption must be brought to the attention 
ot a task, the task interruption control (TIC) subroutine of the resi- 
dent supervisor matches the interruption pending flags against the 
interruption mask in the task's TSI. If the interruption is not masked, 
TIC moves the MCB, if one exists, to the interruption storage area and 
and creates a software interruption by manipulation of the virt'ial PSW, 
causing entry into the task monitor. 

If the interruption is to be handled by an> of the routines described 
here, one of the interruption handling routines of the task monitor will 
enqueue a linkage entry in the Taiik Monitor scan table and exit either 
to the task monitor scanner or the Selective Optimal Procedure (SOP) 
routine. 

Program interruptions for which no other processor has been defined 
by the user (UPI) are given to DIAGNO, which prints a message on the 
task's SYSOUT giving the CSECT name, a relative location number for the 
location beyond the interrupted instruction, and the cause of the 
interrupt ion . 
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External interruptions associated with intertask messages are given 
to the external interruption processor (XIP) . This processor validates 
the iressage and routes it to its subprocessor. 

Because messages cause interruptions, a task may put itself into a 
wait state pending some external event (such as a tape being mounted), 
and be brought back into activity upon completion of the event by 
receipt of a message. The batch monitor creates TSIs for nonconversa- 
tional tasks, then activates the tasks by sending messages to them. 
These messages contain a code that causes XIP to route them to XIIS, the 
task initiation subprocessor, where task initiation is completed, 

ATTENTION interruptions associated with a device not currently 
assigned to a task are given to the initial attention interruption pro- 
cessor CIAIP), (ATTENTION interruptions from SYSIN devices assigned to 
active tasks cause the Task Monitor to call the Command Analyzer and 
Executor. ) 

fc^ Proqram Interruption Diagnostic Processor ~ DIAGNO - CCZAHA) 

This routine issues a diagnostic message to SYSOUT, indicating the 
cause of the program interruption and where it occurred. DIAGNO ser- 
vices all program interruptions not treated by other processors. (See 
Chart OF.) 

ENTRY ; CZAHAl - normal entry 

MODULES CALLED: 



MAPSEARCH (CZCCQ) 



MSGWR (CZAAD2) 



Gets CSECT name and displacement, 
Issues messages to SYSOUT. 



INTERVENE (CZAMZ3) Processes program interventions. 

EXITS ; If the task was conversational, DIAGNO sets up a linkage entry 
to the command analyzer and executoi (via QLE) , and then returns control 
to the task monitor, via the RETURN macro instruction. If the task was 
nonconversational, DIAGNO exits to ABEND. 



OPERATION : The routine first fetches the VPSW, 
e to find the corresponding dia 
CH to get the name and base add 
option occurred. This base add 
ress givcm in the VPSW, is used 
ion. Using MSGWR, the routine 
qe, the old VPSW, the CSECT nan 
ion. The last two of these are 
ded the CSECT is found valid: 



interruption cod 
it calls MAP SEAR 
wnich the interr 
interruption add 
of the interrupt 
diagnostic mesr>a 
of the interrupt 
this form, provi 



then uses the VPSW 
gnostic message. Next, 

ress of the CSECT in 
ress, together with the 

to develop the location 
now issues to SYSOUT the 

e, and the displacc^ment 
supplied by DIAGNO in 



INTERRUPT OCCURRED IN CSECT xxx 
WITH DISPLACEMENT OF yyy 
FROM BEGINNING OF CSECT. 

where xxx is the CSECT name and yyy is the displacement value. 

DIAGNO may issue the following diagnostic messages: 

Message Number Message Significance 



EOOO 



OPERATION CODE 
INTERRUPT. PSW 



Attempt to execute an 
unassigned operation code. 
PSW contains location of 
interruption - 
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EOOl 



PRIVILEGED OPERATION 
INTERRUPT, PSW = , 



Attempt made to execute op 
code not permitted for 
user's privilege. PSW shows 
location of interruption and 
contains interruption code 
and user's privilege- 



E002 



£003 



EXECUTION INTERRUPT, 
PSW = 



PM>TECTION INTER- 
RUPT- PSW = 



When subject instruction of 
an execute instruction is 
another execute instruction, 
PSW shows location of inter- 
ruption and contains inter- 
iruption code and user's 
privilege. 

Tries to access privilege 
storage at location indi- 
cated in PSW, 



E004 



E005 



E006 



E007 



E008 



ADDRESSING INTERRUPT, 
PSW = 



SPECIFICATION INTER- 
RUPT. PSW = 



DATA INTERRUPT, 
PSW = 



FIXED POINT OVERFLOW 
INTERRUPT, PSW = 



FIXED POINT DIVIDE 
INTERRUPT, PSW = - 



User attempted to access 
address that did not exist, 
PSW contains location of 
interruption • 

User made syntactical error 
in an instruction, PSW con- 
tains location of 
interruption. 

While accessing I/O device 
an error was encountered. 
PSW contains location of 
interruption . 

While doing fixed-point 
multiplication or division, 
register overflowed, PSW 
contains location of 
interruption . 

Register overflowed while 
performing fixed- point 

division. 



E009 



DECIMAL OVERFLOW 
INTERRUPT, PSW = 



EOlO 



EOli 



E012 



NONPRIVILEGED PRO- 
GRAM ISSUED lOCAL, 
PGOUT. PSW = 



lOPCB OR lORCB PAGE 
LIST TOO LONG, 

PSW = 



SPECIFIED ADDRESS IS 
NOT IN USERS VIRTUAL 
MEMORY CIOCAL PGOUT) . 
PSW = 



Destination field too small 
to contain the result field 
in a decimal operation. PSW 
contains location of 

interruption. 

User tried to do privileged 
I/O paging operation, PSW 
contains location of 
interruption, 

I/O control block too long 
for I/O program execution, 
PSW contains location of 
interruption. 

Address attempted to access 
in PSW does not exist in 
user's virtual storage. 
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E013 



EOl^l 



E015 



PROGRjyM HAS NO I/O 
DEVICES ASSIGNED TO 
IT ( lOCAL PGODT) . 
PSW = 



lORCB SIZE OF ZERO. 
PSW = 



TSI SERVICE CALL 
INTERRUPT COUNTER 
OVERFLOW. PSW = 



Paging cannot be done be- 
cause no device can be as- 
signed for that purpose- 
PSW contains location of 
in ter r upti on . 

I/O control block is non- 
existent for I/O program, 
PSW contains location of 
program interruption. 

Too roany service call in- 
terruptions. PSW contains 
location of interruption. 



E016 



TSI EXTERNAL INTER- 
RUPT COUNTER OVER- 
FLOW. PSW = 



Too many external inter- 
ruptions. PSW contains lo- 
cation of interruption. 



E017 



TSI ASYNCHRONOUS IN- 
TERRUPT COUNTER OVER- 
FLOW. PSW = 



Too many asynchronous in- 
terruptions. PSW contains 
location of interruption. 



E018 



TSI INTERRUPT COUNTER 
OVERFLOW. PSW = 



Too many interruptions. 
contains location of in- 
terruption. 



PSW 



E019 



TSI INPUT/OUTPUT IN- 
TERRUPT COUNTER OVER- 
FLOW. PSW = 



Too many I/O interruptions. 
PSW contains location of 
interruption . 



E021 



ADDRESS OF UNASSIGNED 
PAGE GIVEN TO CKCLS 
SVC PROCESSOR. PSW = 



A page that was once in 

user's virtual storage and 
is no longer, has been 
given to Check Class CCKCLS) 
SVC. 



E022 



ILLEGAL CODE GIVEN TO 
SETUP/XTRCT SVC PRO- 
CESSOR. PSW = 



Illegal form of SETUP/ 
XTRCT SVC macro user. 



E023 



AWAIT SVC NOT EXECUTED 
REMOTELY OR NOT LAST 
HALFWORD OF AN ECB. 
PSW = 



AWAIT called directly and 
not via an EXECUTE instruc- 
tion. 



E024 



INVALID SHARED PAGE 
TABLE NUMBER TO ADSPG 
SVC PROCESSOR. PSW = 



An invalid shared page 
given to ADSPG. 



E025 



SOFTWARE HAS DETECTED 
A POSSIBLE HARDWARE 
MALFUNCTION. PSW = 



Simulated machine check. 



E026 



USER'S TASK NOT OF 
SUFFICIENT PRIORITY TO 
ISSUE SVC. PSW = 



User does not have correct 
privilege to issue SVC. 



E027 



SVC NOT ON WORD BOUND- 
ARY. PSW = 



SVC must be on word bound- 
ary otherwise an invalid 
call. 
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E028 



E029 



CX)UNT OF EXTERNAL 
ADDRESS IS ZERO. 

PSW = . 

ALL PARAMETERS ARE 
NOT IN ONE PAGE. 

PSW = 



External address count 
illegal. 

•All SVC calls are not 
within page boundary. 



E030 



NO ASYNCHRONOUS ERROR 
ROUTINE DEFINED FOR 
DEVICE WITH ERROR. 
PSW = 



Device malfunction and no 
error routine defined to 
handle malfunction. 



E03i 



ASYNCHRONOUS INTER- 
RUPT RECEIVED BUT NO 
DE AVAILABLE FOR 
DEVICE. PSW = 



No routine available to 
handle asynchronous in- 
terruption. 



E032 



PGOUT REQUEST FOR 
ZERO PAGES- PSW = 



Invalid request for num- 
ber of output pages. 



E033 



SETTR NOT ACCEPTED 
BECAUSE SYSTEM LIMIT 
REACHED IN TABLE. 

PSW = 



No more main storage avail- 
able for new entries. 



E034 



E035 



PROGRAM INTERRUPT RE- 
CEIVED WHILE IN TYPE 
III LINKAGE- PSW = 



SVC INTERRUPT RE- 
CEIVED WHILE IN TYPE 
III LINKAGE. PSW = 



Program interruption receive 
while going to or from 
privileged to nonprivileged 

status. 

No SVC permitted while in 
nonprivileged status. 



E036 



E037 



ATTEMPT TO ADD MORE 
THAN 256 SHARED PAGES 
TO A SEGMENT. 

PSW = 



VSEND MESSAGE IS TOO 
LONG OR EXTENDS OVER 
PAGE BOUNDARY. PSW = 



Interruption occurs when a 
segment's maximum limit of 
pages is exceeded. PSW 
contains location of 
interruption . 

MCE extends over 1920 or a 
page boundary. 



E038 



REQUEST TO DELETE 
PAGE FROM SEGMENT 
NOT PREVIOUSLY AS- 
ASSIGNED. PSW = 



Request to delete a page 
from an invalid segment. 



E039 



REQUEST TO DELETE PAGE 
NOT PREVIOUSLY AS- 
SIGNED. PSW = 



Request deletion of a page 
that does not exist. 



EOHO 



MESSAGE CODE INTER- 
RUPT NOT ASSIGNED 
PRESENTLY. PSW = 



Program interruption receive 
in PSW is undefined at 
present in this system. 



E041 



RELOCATION PAGE - IN 
ERROR (DEVICE DE- 
FECTIVE) - MOVABLE 
VOLUME. PSW = 



Attempt to output a page on 
a defective device. Vol- 
ume can be relocated. 
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E0tl2 



RELOCATION PAGE - IN 
ERROR (MEDIUM DE- 
FECTIVE) • PSW = 



Attempt to output a page 
but mechanism to output 
device is defective • 



E043 



lOCAIi PAGE - IN 
ERROR (DEVICE DEFECT- 
IVE) PERMANENT VOL- 
UME. PSW = 



Attempt to output a page 
on a defective device, 
Volume is permanent and 
cannot be relocated. 



E044 



lOCAL PAGE - IN ERROR 
(DEVICE DEFECTIVE) - 
MOVABLE VOLUME. 
PSW = 



Attempt to output a page 
but device defective. The 
volume however can be re- 
located. 



E0fl5 



LOCAL PAGE - IN ERROR 
(MEDIUM DEFECTIVE). 
PSW = 



Attempt to output a page 
but the mechanism is de- 
fective. 



E046 



OPERATION TASK HAS 
BEEN REINITIALIZED. 
PSW = 



Operator task has been re- 
initialized after previous 
interruption. 



E047 



UNAUTHORIZED USE 
OF TSSS SVC. 
PSW = 



An unauthorized SVC 
(codes 61-95) has been 
issued by a nonprivileged 
program. These codes are 
reserved for use by Time 
Sharing Support System 
(TSSS) . 



EOIA 



GQE TYPE CODE IS IN 
ERROR. PSW = 



Used wrong general queue 
entry code for Task Status 
Index - 



EOIB 



lORCB SIZE EXCEEDS 
1920 BYTES. PSW = 



I/O record control block 
exceeds maximum limit. 



EOlC 



EOID 



lORCB OR lOPCB 
CROSSES A PAGE 
BOUNDARY. PSW 



DEVICE NOT ASSIGNED 
TO TASK (lOCAL PGOUT) 
PSW = 



I/O record control block 
or I/O page control block 
greater than page boundary. 

Attempt to place pages 
on device not assigned to 
task. 



EOIE 



lOCAL OR PGOUT SVC 
PAGE ADDRESS DOES NOT 
EXIST IN VIRTUAL MEM- 
ORY. PSW = 



Attempt to access a page 
that does not exist. 



EOIF 



lOCAL OR PGOUT SVC 
PAGE IS NOT IN CORE. 
PSW = 



Page not in main storage. 



E02A 



E02B 



COUNT EXCEEDS 991, BIT 
STRING FLAG SET FOR 
SETXP. PSW = S. 

PAGE UNASSIGNED. 
PSW = 



Invalid code used to call 
SETXP. PSW contains loca- 
tion of interruption. 

Attempted to access un- 
assigned page. 



E02C 



COUNT EXCEEDS 1022, 
BIT STRING FLAG NOT 
SET FOR SETXP. 
PSW = 



Invalid code used to call 
SETXP. PSW contains loca- 
tion of interruption. 
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E02D 



ENTER SVC ISSUED TO 
INTERRUPTABIiE ROU- 
TINE MHILE TYPE III 
LINKAGE IN EFFECT 
AND PI FLAG ON. 
PSW = 



Attempt to start a re- 
cursive situation in task 
monitor, PSW contains lo- 
cation of interruption. 



E02E 



E02F 



E03A 



E03B 



E03C 



E03D 



E03E 



E03F 



ENTER SVC ISSUED WITH 

INVALID ENTER CODE 

OVER 22K OR UNAS- 
SIGNED. PSW = . 

SVC ISSUED IN NON- 
PRIVILEGED STATE AND 
NO INTERRUPT ROUTINE 
SPECIFIED. PSW = 



INVALID SEGMENT NUM- 
BER GIVEN TO ADSPG 
PROCESSOR. PSW = 



ILLEGAL CODE GIVEN 
TO SETSYS/XTRSYS SVC 
PROCESSOR. PSW = 



ILLEGAL CODE GIVEN TO 
SETTXTS/XTRXTS SVC 
PROCESSOR. PSW = 



UNSUCCESSFUL DEQUEUE 
I/O REQUEST. PSW = 



DRUM FLAG ILLEGALLY 
ON. PSW = 



RELOCATION PAGE - IN 
ERROR (DEVICE DEFECT- 
IVE) - PERMANENT VOL- 
UME. PSW = 



Attempt to use ENTER SVC 
(to call a routine) with 
wrong code. PSW contains 
location of interruption - 

No routine exists for par- 
ticular SVC executed at 
location contained in PSW. 



Illegal segment number 
given to ADSPG (address 

page) processor - 

Invalid code received by 
SETSYS/XTRSYS SVC. PSW 

contains location of 
interruption. 

Invalid code received by 
SETXTS/XTRXTS SVC. PSW 
shows location of inter- 
ruption. 

Unsuccessful attempt to 
dequeue I/O. PSW shows 
location of interruption. 

Drum access flag on il- 
legally. PSW shows location 

of interruption. 

Page cannot be relocated 
on device because device 
is defective. Volume is 
permanent and cannot be 
relocated. PSW shows loca- 
tion of interruption. 



ERROR CONDITIONS: 



None. 



SYSTEM CONTROL BLOCK USAGE : 

Task Common (CHATCM) 

Task Dictionary Table (CHATDY) 

^ Initial Attention Interruption Processor - lAIP - (CZAHB) 

This routine processes the initial attention interruption from a con- 
versational task by providing certain initialization functions in virtu- 
al storage for that task. (See Chart DG.) 

ENTRY: CZAHBl - normal entry 

MODULES CALLED : 

VMTI (CZAAFl) To define system data sets and indicate devices contain- 
ing public volumes. 
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EXITS : The routine exits through WTCTMR via the RETURN macro instruc- 
tion^ except in the case of ABEND where a normal return is made. 

OPERATION: A flag is set in task common to indicate that the new task 
is conversational, and Virtual Memory Task Initiation CVMTI) is called. 

ERROR CONDITIONS ; None. 

SYSTEM CONTROL BLOCK USAGE ; 

Task Common (CHATCM) 

Interruption Storage Area (CHAISA) 

^ External Interruption Processor ~ (XIP/XIIS) - (CZAHC) 

XIP receives intertask messages, checks their validity, copies them 
into virtual storage, and enqueues linkage to the specified subproces- 
sor. It also processes the shutdown message. 

XIIS handles task initiation for nonconversational, batch monitor and 
bulk I/O tasks. (See Chart DH. ) 

ENTRIES ; 

CZAHCl - main entry point 

CZAHC3 ~ entry to initiate nonconversational user's tasks 

CZAHC4 - entry to initialize a bulk I/O task or the task monitor 

MODULES CALLED : 

QLE (CZCJQS) Sets up linkage. 

GETMAIN (CZCGA2) Allocates space for MCB. 

FINDJFCB CCZAEBl) Finds a JFCB. 

FREEMAIN (CZCGA3) Frees storage used by MCB. 

SETUP CCZAH2) Places new SYSIN device address in TSI to indicate a 

new task has been logged on. 

VMTI (CZAAFl) Defines system data sets and indicates devices con- 
taining public volumes. 

EXITS : The routine normally exits to the task monitor, via the RETURN 
macro instruction. If a message was erroneously sent to a particular 
task, the routine will enqueue linkage to the error subprocessor CXIES), 
and then exit to the task monitor via the RETURN macro instruction. If 
a system error occurs, the routine exits to ABEND. 

OPERATION ; At entry CZAHCl, XIP tests if the message is a reply. It it 
is an awaited reply, XIP moves the message to the designated reply area, 
and returns control to the task monitor. 

If the message is not a reply, XIP tests tor a code indicating that 
data management has caused the interrupt to take the task out of the 
wait state. If such a code is found, control is returned to the Task 
Monitor with a return code of zero. 

For all other messages, GETMAIN allocates space into which XIP can 
move the message control block from the lORCB field. The code in the 
message is used as an index to the required subprocessor • s entry in a 
table and linkage to it is set up via QLE and control returned to the 
Task Monitor. 
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The following hexadecimal MCB message codes are recognized as valid 
codes: 

Code Indicates Module 

00 Message CZAHDl 

01 Batch Monitor to task being canceled 

2 Batch Monitor to third-level task initiation CZI^BAB 

03 Error (invalid code) CZAHD2 

04 MOCP CMain Operator Control Program) CZACAl 
6 Activate Batch Monitor CZABAl 
07 Initiate PRINT CZABGl 
09 Initiate WT CZABll 
OA Initiate PUNCH CZABHl 
OB Initiate RT CZABFl 
12 AWAIT for device allocation 

16 Device allocation CZABAA 

50 EXECUTE to Batch Monitor CZABA2 

52 CANCEL to Batch Monitor CZABA3 

54 BULK ID to Batch Monitor CZABA4 

56 BACK to Batch Monitor CZABA5 

5A LOGOFF to Batch Monitor CZABA7 

5B BULKIO In it to Batch Monitor CZASWl 

5D Shutdown to Batch Monitor CZABA9 

5E ABEND CZACRl 

5F LOGOFF Cfroro FORCE) CZAFN2 

60 MOHR CMain Operator's Housekeeping) CZACB3 

If the message is the shutdown message, linkage is also enqueued to 
LOGOFF. 

Entry CZAHC3 of the XIIS subprocessor is called to initiate noncon- 
versational user tasks, while entry CZAHC4 is called for initialization 
of a bulk I/O task or the Batch Monitor, 

For both entries, the message control block contains information 
needed by XIIS. FREEMAIN is called to clear the MCB area before return- 
ing to the Task Monitor. 

For the Batch Monitor or a bulk I/O task, XIIS moves the parameters 
of the specified routine from the MCB into PARIN. The batch sequence 
number is put into task common. A linkage entry to the routine just 
loaded is created and FREEMAIN is called; control is then returned to 

the Task Monitor. 
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When the batch monitor initializes a nonconversational task, it sends 
a message to the task with a code for entry CZAHC3, FINDJFCB is called 
to find the JFCB of the SYSIN entered in the TSI- The flag in task coiti- 
roon is set to nonconversational. The user id is placed in task comroon. 
FREEMAIN is called, and control is returned to the Task Monitor. 

ERROR CONDITIONS ; XIP will determine from the following conditions if a 
message was erroneously sent to a task: 

• Sender's reply not the awaited one (either taskid or message number 
incorrect) . 

• User not awaiting reply when a reply is received- 

• MEB not on word boundary. 

• Shutdown message has incorrect taskid. 

The routine will then call GETMAIN, move the message, and set up linkage 
to the error subprocessor CXIES) before returning to the task monitor. 

The routine may issue this system error message: 

SYSER Code Severity ABEND Message Explanation 

050702701 Minor MCB LENGTH MCB length exceeds maximum limit 

EXCEEDS 

MAXIMUM LIMIT 

SYSTEM CONTROL BLOCK USAGE : 

Interrupt Storage Area CCHAISA) 
Task Data Definition Table (CHATDT) 
Task Common CCHATCM) 
Message Control Block (CHAMCB) 
Message Event Block (CHAMEB) 
Batch Work Queue (CHABWQ) 

^ External Interruption Subprocessor - XIMS/XIES - (CZAHD) 

This routine issues, to a task's SYSOUT, all messages sent to that 
task. The routine also handles any message that is erroneously sent to 
a task. (See Chart DI.) 

ENTRIES ; 

CZABDl - entry point for the external interruption processor CXIP) to 

issue message contained in a specified message control block 

CMCB) 
CZAHD2 - entry point for XIP to issue message that was erroneously sent 

to a particular task 
CZAHD3 - entry point for task monitor to process a message that was 

unexpectedly sent 

MODULES CALLED : 

VSEND Sends intertask messages. 

GATWR CCZATCl) Writes messages to task's SYSOUT. 

FREEMAIN CCZCGA3) Releases an area of virtual storage. 

User Prompter Issues diagnostic message to the user. 
(CZATJl) 
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EXITS ; The routine exits to the calling routine, via the RETURN macro 

instruction. 

OPERATION ; The routine is called (at CZAHDl) by the external interrupt 
processor CXIP) to issue a message contained in a specific message con- 
trol block CMCB). The message text and sender's taskid are extracted 
from the MCB and placed in the parameter list for GATWR. 

The message code field in the MCB is checked to determine if the mes- 
sage was valid (indicated by a code of 0). The code is then extracted 
from the m:B, converted to EBCDIC, and inserted in the message. If the 
message was invalid Cany code other than 0), the code is still placed in 

the message, but the following is prefixed to the message: 

THE FOLLOWING INVALID MESSAGE WAS RECEIVED BY YOUR TASK, 

The total length of the message is calculated and placed in the GATWR 
parameter list GATWR then issues the message to the task's SYSOUT. 
After the message has been issued, FREEMAIN is called to release the MCB 
virtual storage area that was used during processing. 

At CZAHD2, this routine is called by XIP to process a message that 
was erroneously sent to a particular task. The taskids of the sender 

and receiver of the message are extracted from the MCB and transposed so 
that the original sender will now receive the message, prefixed with the 
following: 

THE MESSAGE YOU HAVE SENT HAS AN INVALID CODE. 

Then a branch to CZAHDl is taken to issue the erroneous message. 

CZAHD3 is called by the task monitor. Processing at this entry is 
the same as at CZAHD2 except that the following message is sent: 

THE MESSAGE YOU HAVE SENT HAS AN UNEXPECTED CODE. 

ERROR CONDITIONS ; None. 

SYSTEM CONTROL BLOCK USAGE ; Message Control Block CCHAMCB) 



I^ Virtual Memory Task Initiation - VMTI - (CZAAF) 



This routine resides in initial virtual storage? and performs certain 
functions required to xnitiate a task. These functions include creating 
job file control blocks (JFCBs) for system data sets, opening the system 
library, and adding to the task symbolic device list CTSDL) all those 
devices on which public volumes reside. (See Chart DJ.) 

ENTRY: CZAAFl - normal entry 

MODULES CALLED : 

VMTI™ 2 (CZATD) Logs on task, 

TIME CCZAVB) Initializes task timer- 

DDEF CCZAEA5) Creates JFCBs for system data sets. 

FINDJFCB CCZAEBl) Finds SYSLIB JFCB. 

ADDEV Adds symbolic device address to TSDL. 

LIB MAINTENANCE Opens SYSLIB DCB. 

CCZCDHC) 
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OPEN CCZCIA) Opens SYSCAT DCBs . 

EXITS ; The routine normally returns to the calling routine^ via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to SYSER. 

OPERATION: Initial virtual storage contains a task data definition 
table (TDT) with JFCBs for the SYSCAT (SYSSVCT and SYSUCAT), SYSIN, and 
SYSOUT data sets. The TDT header is set up so that the appropriate 
fields point to the last JFCB and the first free storage area; the 
pointer to the JFCB in the program library list points to zero; the tem- 
porary tabulation pointer also points to zero. 

VMTI is called by either lAIP (for a conversational task) or XIP (for 
a nonconversational task) to initiate a new task. 

The symbolic device allocation table (SDAT) is scanned to find all 
those devices that carry public volumes. Since all SDAT entries for 
such devices are chained together, this involves finding the beginning 
of the chain in the SDAT header and following it through the table. As 
each public device is found, its address is added to the TSDL using the 
ADDEV SVC. The system catalogs SYSSVCT and SYSUCAT are then opened for 
update. 

Successive calls to DDEF are made to create and fill in the JFCBs for 
the user catalog (SYSUCAT), the system library, the user table, the sys- 
tem macro library and the macro library index. The timer for the task 
is initialized and control is passed to VMTI-2 to logon the task- On 
return, control is passed to the calling routine. 

ERROR CONDITIONS ; The routine may issue these system error messages: 

SYSER Code Severity ABEND Message Significance 

050106102 Major None Error return code received from 

DDEF. 

050106103 Major None No address returned by CZAER for 

SYSLIB JFCB. 

SYSTEM CONTROL BLOC3C USAGE ; 

Interriipt Storage Area (CHAISA) 

Symbolic Device Allocation Table (CHASDA) 

System Common (CHASCM) 

Task Common (CHATLM) 

Task Data Definition Table (CHATDT) 



^ Virtual Memory Task Initiation II - VMTI II (CZATD) 



This routine provides the task initialization interface between com- 
mand system I and command system II. This includes opening the system 
message file (SYSMLF) , opening the SYSIN data set for nonconversational 
updating of the user table, logging on the user, and in the case of 
operator task, calling the main operator housekeeping routine. (See 
Chart DK-) 

ENTRIES ; 

CZATDl - normal enti^f point for all tasks in the system 

CZATD2 - special entry point for all bulk I/O tasks to call logon 

CZATD4 - special entry point for Express Batch 
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JMODULES CALLED ; 
RELEASE CCZAFJ) 
RCR-OPEN 



Releases the SYS IN JFCB for nonconversational task. 

Performs OPEN for first express batch subtask for 
nonconversational tasks. 



FINDJFCB CCZAEB) Finds the SYS IN and SYSOUT JFCBs. 

GATEOPEN (CZBTB4) Opens the SYSIN DCB for nonconversational tasks. 

GATE CCZATC) Reads SYSIN. 



LOGON (CZAFM) 

LOGON 2 CCZCBTB) 
DDEF CCZAEA) 
MOHR CCZACB) 

QLE (CZCJQ) 

WTO CCZABQ) 
OPEN (CZCLA) 



Logs user on. 

Completes LOGON initialization functions. 

Builds USERLIB JFCB for abended task. 

Initializes operator task. 

Queues a linkage entry for the Command Analyzer and 
Executor. 

Informs operator that EXPRESS card not followed by 
LOGON (nonconversational) . 

Opens system message file CSYSMLF) . 



EXITS ; The routine normally returns to the calling routine via the 
RETURN macro instruction. If a system error occurs, the routine exits 
to ABEND. 

OPERATION ; All tasks in the system enter at CZATDl where the system 
message file CSYSMLF) is opened, and a FIND is issued to position a 
pointer at that particular VPAM member- 

A check is then made to see if this task is the Batch Monitor or a 
bulk I/O task. In the case of the batch monitor or a bulk I/O task, a 
return is made to the calling routine. 

In all other tasks, a check is made to see if the task is conversa- 
tional. If it is, the conversational flag is turned on in New Task Com- 
mon. If the task is nonconversational, the existing SYSIN JFCB is 
released, and a call is made to DDEF to construct a new SYSIN JFCB for 
the SYSIN data set; the conversational flag in New Task Common is set to 
zero. At this point Gate Open (CZBTB4> is called to open the SYSIN data 
set for a nonconversational task. The task ID is then extracted from 
the TSI and stored in Task Common. It is then examined to see if the 
task is the operator's task. If it is the operator task, the address of 
the user table DCB is picked up and the SYNAD and EODAD R-cons and V- 
cons are changed to point to the proper points in CZATD. 

The user table data set is then opened for updating. A SETL is 
issued to place the pointer at the beginning of the data set. Each rec- 
ord is then retrieved via the VISAM GET macro instruction, and the acti- 
vity, task count flag and RCR accounting fields are set to zero. Each 
record is then written back into the user table data set. When EODAD is 
reached, the data set is closed. 

All tasks are again checked to see if they are nonconversational. If 
the task is nonconversational, a GATRD obtains the first record of the 
SYSIN data set. A check is made for the LOGON verb; if it is not in the 
record, a check is made for the 'EXPRESS' verb. If it is not an 'EX- 
PRESS' record, the subtask is abnormally terminated. 
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If the LOGON verb is found, tlie TCMEXPl (Express Batch mode) switch 
is examined; if it is off, processing continues as described in the next 
paragraph. At this' point (CZMTD^) all jobs in the Express Batch stream 
(with the exception of the first job which begins at CZATDl) begin their 
LOGON sequence. A call is made to the TIME conroand module CCZAVB4) to 
reinitialize the clock(s) as required. If the EXPRESS verb is found, 
the TCMEXPl (Express Batch mode) switch is set on and a scan function is 
performed which establishes a pointer to the time parameter, bypassing 
the keyword, TIME=, when present, A call is then made to the #timE rou- 
tine (CZCAVB4) to initialize System Clocks 13 and/or 14. 

When return is made to VMTI-2, an additional GATRD is performed for 
the next record in SYSIN. These GATRDs are performed until a LOGON is 
encountered. If a LOGON is not fo'und immediately after 'EXPRESS' ,, a 
warning message is issued to the operator Cin building an EXPRESS SYSIN 
data set, BULKIO ensures that an 'EXPRESS • card is followed by a 'LOGON' 
card) ; then additional GATRDs are performed. Once a LOGON is found, the 
clock Cs) are reinitialized and processing continues. 

In both conversational and nonconversational tasks, LOGON CCZAFM) is 
called. If task is conversational, information is extracted froro the 
TCT slot for this user, and an SDAT entry is built for this device with 
pertinent information set. The device type found in the TCT is stored 
in gate's PSECT. It is then translated to a model code which is used to 
determine the maximum device line length. This length is also stored in 
GATE. GATE uses this information to break up long output lines into 
segments that do not exceed the device line capacity and to determine 
the translation required. 

An MCAST macro instruction allows a nonprivileged program to specify 
an input translation. In some application programs the terminal type 
must be known to perform the appropriate MCAST- The terminal type thus 
must be made available to nonprivileged programs. To do this, CZATD now 
moves the terminal type from the TCT (TCTDTY) to a field indicating ter- 
minal type in the ISA (ISADTY) . ISADTY has the same code indicators as 
TCTiyPY. 

At this point a second entry point CCZATD2) is provided for ABEND and 
BULKIO to allow them to go to LOGON, A call to LOGON2 is then made for 
all tasks. When I/)GON2 returns, a check is made for the first express 
batch subtask. If it is the first subtask, a call is made to RCR OPEN 
with the userid of SYSOPERO. Upon completion of LOGON2, another check 
is made for the operator task. If this is the operator task, the main 
operator housekeeping (MOHR) routine is called. When MOHR has finished, 
CZATD returns to the calling routine. Also, the completion of LOGON2 in 
bulk I/O tasks and abended tasks causes a return to the calling routine. 

In all other tasks in the system, except Express Batch, a call is 
made to the Task Monitor to QLE to the Command Analyzer and Executor. 
The task initiation flag in the ISA is turned off; VMTI-2 returns to its 
calling routine. 

For an Express Batch task, the source list and dictionary are rein- 
itialized for the subtask via a call to LOGON2 (CZBTBB) and a return is 
made by way of the Task Monitor. 

ERROR CONDITIONS : The following error conditions will result in an 
ABEND: 

1. An attempt to FIND the system message file (SYSMLF) failed. 

2. The absence of the LOGON verb on the first SYSIN record of a non- 
conversational task. 
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3. Ml attempt to DDEF a SYSIN data set for a noiiconversational task 
failed- 

4. Mi attempt to update a user table entry failed, 

5. Model code in SDh is not 1-4. 

6. RCR open for SYSOPERO failed in Express Batch, 

SYSTEM CX3NTRQJL BLOCK USAGE ; 

Data Control Block CCHM>CB> 

Combined Dictionary Header CCHADCT) 

Interrupt Storage Area CCHAISA) 

Message Control Block CCHAMCB) 

New Task Common (CHANTCl 

Symbolic Device Allocation Table CCHASDA) 

Task Common (CHATCM> 

Task Data Definition Table (CHATDT) 

User Table (CHAUSE) 

Terminal Control Table CCHATCT) 
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FLOWCHikRTS 



The flowcharts in this manual have been produced by the IBM System/ 
360 Flowchart program, using ANSI symbols. These descriptions of the 
ANSI symbols and the System/360 Flowchart conventions will simplify 
interpretation of the flowcharts in this manual: 



DEFINITION 



r~ ^ 

f TERMINAL BLcKK I 



PRiKTESS B1„CX:K 




SU BR I MIT INK 




indicates an entry or 
terminal point in a flow- 
chart: shows start. stop, 
halt, delay, or interrup- 
tion, may also indicate 
return to the calling 
pr(x:;ham. 



INDIi-ATES A PRiX'ESSlNG 
FUNCTION OR A DEFINED siP 
ERATIuN CAUSING CHANGE I 
VALUF, l-ORH OR LOCATION 
OF INf'. FMATION. 



I NIH. A'^^S A DECISION ■ 'H 
SWII: tllN<OrYFE OPERATION 
THAI CFl'ERMINES WHK'H of- 
A NIJMBtH OF ALTERNA't'^ 
i'ATN:, •^HiHIL.D BF Fi n.U ^WKP, 



INDICATES A SUBROUTINE OH 
MODULE THAT IS [DESCRIBED 
IN THIS MANUAL 



1 It "^ A SUBHO'IITINF 
! HAT IS INi LSJOHi 
t-OiWCHARTS I ,¥ AN 



7r<LI ' Alt- ; (;irNtNAl i I 
^ 1%. ! ! Ns, SU< H AS L.f- ! 
PIO , I ^ M>, WH I I'F, SO ., 
^^.l. I r ■;- F > 'Ntroi mai 
OrOi- !i ; !oN , 



INliL A! i-S A PRO* 'ESS 1 hA 
. HANi.E'- 'SYSTEM OPEBATL 
i-oh' EXAMPLE, SETS A SWl 
Ml 'I'M- U-S AN INDEX PEt CO. 



G 





VIA: PASSMEOH 




MODNAME IS THE LOAD MODULE 
NAHE. OF THE ROUTINE DESCR 1 

FLOWCHART . 



OTHERMOD INDICATES THE M< ! 
CONTROL TO THIS MODULE ANl 

CHARTS . 



D!: PRCXiRAM EXECUTION CCiNTINLlES WITH BL'' 
H3 WHEN THE DECISION IS NO, OR 
BLOCK E3 WHEN THE DECtSON IS YES. 



LABEI J IS THfc LABEl OF THE SECTION OF 
< 'DF IN rms ROUTINE ERO"-* WHL'H r, -NTHO 
IS PASSED To THI- SUBROUTINE. i'lNTP-C 
PLTIIHNS T- THE NEXT INSIMI- rD<N F *[ L- '« 
[NO THi SJbRoUriNf- . ALL. 



^ N 1 p 't' p r 



IHt EN'IPY P( C .1 . 



FI . -WCHAH r 



CABEI ' !;. THI LABEL OF 1 tih SE^TI-.N oF 
rOLh FkoM WHOM - « iNTPoL OS PASSEC lo TH 
t PFLl- F !NEL> Pho<tSS PDPNF, 'aHD'H IS 
IXKilMt-NTED IN ANOTHER PI Ti: D 'An < iN 

■P[iPNy- MAY Also BE USrC IN A f-'^ FSS 



INC. 



B! 



EXHTOSON o iNTlNlJES 
THI- Df-« ISloN IS YES 
PAS.F .' OF THIS SET 
THE- DEC ISO iN 1 • Mt ) . 



1HF ol- FPAoI ' .(! 
' ATE.s THAF hXE< 
Hi !-k. <H AN> 'THE 
HAP rs . 1 H I S ' 
WITH THE , -Nj'Ak. 



,Fi 'D >R MAHKLD n ]}> \ 
iTloN CO!*!' IN'Jfc S W 

PA<;t Ob rms -o-t 

>r*NEt TOP !S Al So '- 
' • »NNEi 1 -t^ FROM H . 



INDIOATES ENTRY TO O'P 
FROM ANOTHER BLOCK ON 
SAME FLOWCHART PAGE, 



IF- NF.'<THTN, 



1NDUA1ES ENTRY To OP EXIT 
ERtJM A Bl.tKK ON ANOjTHFK 
PAGE .'I- THE SAMl SE"? oF 
FLSiW<-HAprS. 



FP=ENTRYPT 

I -HART AC 

VIA: PASSMECH 
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Flowcharts on pages 207-552 were not scanned. 
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This appendix can be used to find the cominand system modules that use 
a specific control block. 



Control 








Block 


Modul 


es Using Control Block 


AAA 


User Prompter 


Attention Handler 


User Control 


ACT 


ABEND 






AIR 


ABEND 


PAIR 


RPS/CVV 


AUL 


ABEND 


LOGOFF 


LOGON 




RET 


USAGE 




BPK 


CASE 


User Control 




BWQ 


EXECUTE 


XIP/XIIS 




CCC 


CATALOG 


DDEF 


EW 




EXECUTE 




POD? 




RET 


RPS/CW 


RELEASE 




UPDTUSER 


VAM Tape 




CTT 


GATE 






CVF 


User Prompter 


LOGON 2 




DCB 


GATE 


User Prompter 


Text Editor Controller 




CONTEXT 


CORRECT 


Edit Initialization 




EXCERPT 


EXCISE 


INSERT 




DATA LINE 


LIST 


LOCATE 




NUMBER 


Profile Handler 


REGION 




STET 


UPDATE 


ABEND 




BACK 


CDD 


CDS 




DATA 


ERASE/DELETE 


JOIN 




LINE? 


LOGON 


LOGON2 




MODIFY 


PERMIT 


POD? 




Procedure 








Expander 


QUIT 


RPS/CW 




UPDTUSER 


USAGE 


VAM Tape 




VSS 


LPCMAIN 


GETLINE 




VMTI-2 


PROCDEF 


User Control 


DCT 


Profile Handler 
PROCDEF 


LOGON2 


VMTI-2 


DEB 


ABEND 


RELEASE 




DEC 


GATE 


ABEND 




DEN 


CASE 
PROCDEF 


LOGON2 


Procedure Expander 


DHD 


ABEND 


LOGOFF 


POD? 




RELEASE 


VAM Tape 




DSC 


DSS?/PC? 
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Control 










Block 


— 


Modul 


es Usinq Control Block 


DSE 


CONVERT 




DSS?/PC? 


EW 




RET 




RPS/CW 


UPDTUSER 




VAM Tape 








DSF 


CONVERT 




RPS/CW 




DSV 


CONVERT 








ISA 


CASE 
Attention 




GATE 


User Prompter 




Handler 




ABEND 


CDD 




CATALOG 




DSS?/PC? 


DDEF 




ERASE/DELETE 


JOIN 


LOGOFF 




LOGON 




PERMIT 


QUIT 




RPS/CW 




SHARE 


UPDTUSER 




User Control 


VAM Tape 


XIP/XIIS 




VMTI-2 




KEYWORD 


VMTI 


ITB 


ABEND 








MEM 


L0G0N2 








MCE 


ABEND 




CANCEL 


EXECUTE 




LOGON2 




XIP/XIIS 


XIMS/XIES 




VMTI-2 








MEB 


ABEND 
XIP/XIIS 




CANCEL 


EXECUTE 


MSG 


EXECUTE 








NTC 


CASE 
Attention 




GATE 


User Prompter 




Handler 




Source List Handler 


DATA LINE 




Profile Handler 


BACK 


LOGON2 




Procedure 




User Control 


LPCMAIN 




Expander 




VMTI-2 


CONTEXT 

Edit Initialization 

LIST 

LOCATE 

MATCH 

ABEND 

LOGON 

PROCDEF 



PCT 


CASE 


GATE 




Attention 






Handler 


DATA LINE 




LOGON2 


MCAST 




User Control 




PFL 


User Profile 


LOGON2 


POD 


POD? 




POE 


POD? 




POM 


POD? 




PVT 


DSS?/PC? 
UPDTUSER 


RET 



User Prompter 

Profile Handler 
Procedure Expander 



RPS/CW 
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Contxol 
Block 



RHD 

RQU 
SAR 
SCM 



JUBEND 
RELEASE 

RELEASE 

ABEND 

ABEND 
LOGON 
SECURE 



Modules Using Control Block 

LOGOFF POD? 

¥AM Tape LIST 



FLOW 

DDEF 
RET 

TIME 



VMTI 

JOIN 

RPS/CW 

UPDTUSER 



SDA 



CATALOG 
LOGOFF 
RELEASE 
VMTI 



DDEF 
LOGON2 
VAM Tape 
VMTI -2 



EW 

RPS/CW 

lAIP 

ABEND 



SDM LOGON 

SDS ABEND 

SLH CASE 

Procedure 
Expander 

SLM CASE 

Procedure 
Expander 

SLP CASE 

Procedure 
Expander 

STK User Control 

TBC DSS2/PC? 

TBD DSS?/PC? 
UPDTUSER 



USAGE 



Source List 

Handler 
User Control 

Source List 
Handler 



Source List 

Handler 
User Control 



ABEND 



IF String Comparison 



IF String Comparison 



IF String Comparison 



QUIT 



ERASE/DELETE 



TBS DSS?/PC? 

TCM GATE 
ABEND 
CANCEL 
DATA 

ERASE/ DELETE 
FINDJFCB 
LOGOFF 
PERMIT 
RET 

SECURE 
TIME 
VAM Tape 
GETLINE 
XIP/XIIS 



SCAN 

BACK 

CATALOG 

DSS?/PC? 

EXECUTE 

JOIN 

LOGON 

POD? 

RPS/CW 

SHARE 

UPDTUSER 

VSS 

DIAGNO 

VMTI -2 



Source List Handler 

CDD 

CDS 

DDEF 

FINDDS 

LINE? 

MODIFY 

QUIT 

RELEASE 

SYSXPAT 

USAGE 

LPCMAIN 

lAIP 



TCT 



GATE 



CHGPASS 



LIST 
CHGPASS 
LOGON 2 
VMTI 
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Control 








Block 


Modules Usinq Control Block 


TDH 


LOGON 






TDT 


Text Editor 


EXCERPT 


REGION 




Controller 


ABEND 


BACK 




CDD 


CATALOG 


CDS 




DATA 


ERASE/DELETE 


EW 




FINDDS 


FINDJFCB 


LOGOFF 




LOGON 


LOGON 2 


MODIFY 




POD? 


QUIT 


RET 




RPS/CW 


RELEASE 


USAGE 




VAM Tape 


LPCMAIN 


lAIP 




XIP/XIIS 


VMri-2 


PROCDEF 
VMTI 


TDY 


POD? 


DIAGNO 


ABEND 


TRN 


Text Editor 


INSERT 


REVISE 




Controller 


CONTEXT 


DATA LINE 




STET 


CORRECT 


LIST 




TRIN 


Edit Initialization 


LOCATE 




Transaction 


EXCERPT 


NUMBER 




Table Updater 








UPDATE 


EXCISE 


REGION 




PROCDEF 


User Control 




TSI 


BACK 
ABEND 


LOGON 


USAGE 


USE 


GATE 


ABEND 


BACK 




JOIN 


LOGOFF 


LOGON 




QUIT 


RET 


UPDTUSER 




USAGE 


VSS 


VMTI -2 




CHGPASS 
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APPENDIX B: 



SYSPRO 



ABEND 


0000000 


ABENDREGOOOOOOO 


ASM 


0000000 


ASNBD 


0000000 


ASNBD 


0000100 


ASNBD 


0000200 


ASNBD 


0000300 


AT 


0000000 


BACK 


0000000 


BCST 


0000000 


BCST 


0000100 


BCST 


0000200 


BCST 


0000300 


BRANCH 


0000000 


BUILT IN 


0000000 


C 


0000000 


C 


0000100 


c 


0000200 


c 


0000300 


c 


0000400 


CA 


0000000 


CA 


0000100 


CALL 


0000000 


CANCEL 


0000000 


CANCEL 


0000100 


CANCEL 


0000200 


CANCEL 


0000300 


CATALOG 


0000000 


CB 


0000000 


CB 


0000100 


CDD 


0000000 


CDD 


0000100 


CDD 


0000200 


CDD 


0000300 


CDD 


0000400 


CDS 


0000000 



BUILTIN ABEND ,CZASB66 

BUILT IN ABENDREG,CZACP22 

BUILTIN ASM ,CFADA21 

PROCDEF ASNBD 

PARAM $1,$2,$3,$4,$5,$6,$7,$8,$9,$1X,$2X,$3X,$4X,$5X,$6X,$7X 

SYSXPAT ASNBD 

$1,$2,$3,$4,$5,$6,$7,$8,$9,$1X,$2X,$3X,$4X,$5X,$6X,$7X 



,CZAMF11 

,CZABC11 



,CZAMB11 
,CZATP11 



CHGPASS 0000000 
CLOSE 0000000 
CONTEXT 0000000 
CORRECT 0000000 



CPS 


0000000 


CW 


0000000 


DATA 


0000000 


DATA 


0000100 


DATA 


0000200 


DATA 


0000300 


DDEF 


0000000 


DDNAME? 


0000000 


DEFAULT 


0000000 


DELETE 


0000000 


DIRECT 


0000000 


DISABLE 


0000000 


DISPLAY 


0000000 


DMPRST 


0000000 


DROP 


0000000 


DSS? 


0000000 


DUMP 


0000000 


EDIT 


0000000 


ENABLE 


0000000 


END 


0000000 


ERASE 


0000000 


EW 


0000000 


EXCERPT 


0000000 


EXCISE 


0000000 


EXECUTE 


0000000 


EXHIBIT 


0000000 


EXIT 


0000000 


EXPLAIN 


0000000 


FLOW 


0000000 


FORCE 


0000000 


FORCE 


0000100 


FORCE 


0000200 


FORCE 


0000300 


FTN 


0000000 


GO 


0000000 


HOLD 


0000000 


IF 


0000000 


INSERT 


0000000 


JOBLIBS 


0000000 


JOIN 


0000000 


JOINRJE 


0000000 


K 


0000000 



BUILTIN AT 

BUILTIN BACK 

PROCDEF BCST 

PARAM TEXT 

SYSXPAT BCST 

TEXT 

BUILTIN BRANCH 

BUILTIN BUILTIN 

PROCDEF C 

PARAM ALPHABET=$1 

IF ' $ 1 ' = • 2 • I DEFAULT ALPHABET=3 

IF • $ 1 ' = ' 1 • ; DEFAULT ALPHABET=4 

DEFAULT SYSIN=C 

PROCDEF CA 

DEFAULT SYSIN=C,ALPHABET=3 

BUILTIN CALL ,CZAMG11 

PROCDEF CANCEL 

PARAM BSN 

SYSXPAT CANCEL 

BSN 

BUILTIN CATALOd ,CZAEI11 

PROCDEF CB 

DEFAULT SYSIN=C,ALPHABET=4 

PROCDEF CDD 

PARAM DSNAME,$1 

DEFAULT SYS$001=* * ; IF '$1 

= $1' 

SYSCDD DSNAME 

BUILTIN CDS 

BUILTIN CHGPASS 

BUILTIN CLOSE 

BUILTIN CONTEXT 

BUILTIN CORRECT 

BUILTIN CPS 



1^1 »; DEFAULT SYS$0 01=' ,DDNAME- 



,CZAFV11 

rCZATIll 

.CZCHBll 

,CZASM11 
,CZASQ11 
,CZAXX13 
,CZAXX12 



BUILTIN CW 

PROCDEF DATA 

PARAM DSNAME, RTYPE, DBASE, DINCR 

SYSXPAT DATA 

DSNAME , RTYPE , DBASE , DINCR 

BUILTIN DDEF ,CZAEA1I 

BUILTIN DDNAME? ,CZAEK12 

BUILTIN DEFAULT ,CZATR12 

BUILTIN DELETE ,CZAEJ21 

BUILTIN DIRECT ,CZABA811 

BUILTIN DISABLE ,CZASW7 

BUILTIN DISPLAY ,CZAMDll 

BUILTIN DMPRST ,CZUFAB 

BUILTIN DROP ,CZCM0 411 

BUILTIN DSS? ,CZAEL11 

BUILTIN DUMP,CZAMD21 

BUILTIN EDIT,CZATS2 

BUILTIN ENABLE, CZASW6 

BUILTIN END,CZASW22 

BUILTIN ERASE ,CZAEJll 

BUILTIN EVV ,CZCFB11 

BUILTIN EXCERPT, CZASK II 

BUILTIN EXCISE, CZASLll 

BUILTIN EXECUTE ,CZABB11 

BUILTIN EXHIBIT ,CZAYD31 

BUILTIN EXIT ,CZAMZ88 

BUILTIN EXPLAIN, CZATJX 

BUILTIN FLOW ,CZAGD11 

PROCDEF FORCE 
PARAM USERID 

SYSXPAT FORCE 
USERID 

BUILTIN FTN ,CFADA11 

BUILTIN G0,CZAMC21 

BUILTIN HOLD ,CZCM0 711 

BUILTIN IF ,CZBLT11 

BUILTIN INSERT, CZASJll 

BUILTIN JOBLIBS ,CZAEK11 

BUILTIN JOIN ,CZAFK11 

BUILTIN JOINRJE ,CZABS111 

PROCDEF K 
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0100 PARAM ALPHABET=$1 

0200 IF ' $1'=' 3' ^DEFAULT ALPHABET=2 

300 IF • $1'='4' ;DEFAULT ALPHABET=1 

040 DEFAULT SYSIN=K 

00 PROCDEF KA 

0100 DEFAULT SYSIN=K, ALPHABET=2 

00 00 PROCDEF KB 

0100 DEFAULT SYSIN=K, ALPHABET=1 

0000 BUILTIN KEYWORD ,CZATH11 

0000 BUILTIN LABEL ,CZABXX 

0000 BUILTIN LINE? ,CZAEM11 

0000 BUILTIN LIST.CZASPll 

0000 BUILTIN LNK ,CFADA31 

0000 BUILTIN LOAD^CZBTGll 

0000 BUILTIN LOCATE, CZASNll 

0000 BUILTIN LOGOFF ,CZAFNll 

0000 BUILTIN LPDS ,CZAXX14 

0000 BUILTIN MCAST ,CZATU21 

000 BUILTIN MCASTAB ,CZATU31 

0000 BUILTIN MODIFY ,CZAEG1I 

0000 PROCDEF MSG 

0100 PARAM USERID=$1,TEXT 

200 SYSXPAT MSG 

0300 USERID=$1,TEXT 

0000 BUILTIN MTT ,CTCBPKD 

0000 BUILTIN NEWMSG ,CZATJD 

0000 BUILTIN NUMBER ^CZASUll 

00 00 BUILTIN PATCLEAR,CZAF03 

0000 BUILTIN PATFIX .CZUPFIX 

0000 BUILTIN PC? ,CZAEL22 

0000 BUILTIN PERMIT ,CZAFH11 

0000 BUILTIN PLI ,CFBAA8 

0000 BUILTIN POD? ,CZCOXll 

0000 BUILTIN POST ,CZASW8 

0000 PROCDEF PRINT 

0100 PARAM DSNAME,STARTNO,ENDNO,PRTSP,SZ01,SZ02,SZ03,SZ0 4,SZ0 5,SZ06,SZ07,SZ0 8,- 

200 HEADER , LINES , PAGE , ERASE , ERROPT , FORM , STATION , TAPOPT 

300 IF 'PRTSP V EDIT' ; DEFAULT SY01= ' HEADER' , SY02= ' LINES ' ,SYO 3= ' PAGE ', - 

400 SY0 4='ERASE' ,SY0 5=' ERROROPT' ,SY0 6='FORM' , SY07= ' STATION* , SYO 8= 'TAPOPT ' ?- 

500 PRINT 2 DSNAME,STARTNO,ENDNO,PRTSP,SZ01,SZ0 3,SZ04,SZ05,SZ06,SZ07 ,SZ0 8 

0600 IF 'PRTSP'= 'EDIT' ; DEFAULT SY01= 'ERASE ', SY0 2±ERROROPT' , SYO 3= ' FORM ', - 

0700 SY04=* STATION' , SY05= ' TAPOPT' ; PRINT3 DSNAME, STARTNO, ENDNO, PRTSP , SZOl , SZ02 , SZ0 3 , 

0800 SZ04,SZ05 

0000 PROCDEF PRINT2 

0100 PARAM DSNAME , STARTNO , ENDNO , PRTSP , SYO 1 , SY02 , SYO 3 , SYO 4 , SYO 5 , SY06 , S YO 7 , SYO B 

0200 SYSXPAT PRINT 

300 DSNAf-lE , STARTNO , ENDNO , PRTSP , SYO 1 , SY02 , SYO 3 , SY04 , SYO 5 , SY06 , SY07 , SYO 8 

0000 PROCDEF PRINT3 

010 PARAM DSNAME, STARTNO, ENDNO, PRTSP, SYO 1, SYO 2, SYO 3, SYO 4, SYO 5 

0200 SYSXPAT PRINT 

30 DSNAME , STARTNO , ENDNO , PRTSP , SYO 1 , SYO 2 , SYO 3 , SYO 4 , SYO 5 

0000 BUILTIN PRMPT ,CZBTC2 

0000 BUILTIN PROCDEF ,CZATP12 

0000 BUILTIN PROFILE, CZASZ2 

0000 PROCDEF PUNCH 

0100 PARAM DSNAf4E,CB IN, STARTNO, ENDNO, STACK, ERASE, FORM 

200 SYSXPAT PUNCH 

30 DSNAME , CBIN , STARTNO , ENDNO, STACK , ERASE , FORM 

0000 BUILTIN PUSH ,CZAMZlll 

0000 BUILTIN QUALIFY, CZAMRll 

000 PROCDEF QUIT 

0100 PARAM USERID 

0200 SYSXPAT QUIT 

300 USERID 

0000 BUILTIN QUITRJE ,CZABS211 

0000 BUILTIN REGION, CZASFll 

0000 BUILTIN REJOIN ,CZAFK12 

0000 BUILTIN RELEASE ,CZAFJll 

0000 BUILTIN REMOVE, CZAMS 11 

0000 BUILTIN REPLY ,CZACA31 

0000 BUILTIN RET ,CZAEN11 

0000 BUILTIN REVISE, CZASHll 

0000 BUILTIN RPS ,CZAXXll 

0000 PROCDEF RT 

0100 PARAM VOLUME, TATYPE, USERID, DSNAME1,DSNAME2, LINE, ERROROPT, - 

0200 CTLG=$1 

0300 IF '$1 't^' '; SYSXPAT RT ; CTLG , USERID ,DSNAMEl ,DSNAME2 , LINE, - 

040 ERROROPT 

0500 IF '$1 '=' ', -SYSXPAT RT; VOLUME, TATYPE , USERID ,DSNAMEl , - 

060 DSNAME2, LINE, ERROROPT 

0000 BUILTIN RTRN ,CZAJ4Z77 

0000 PROCDEF RUN 

20 PARAM LOC 

0250 IF 'LOC '=' ' ;G0 

300AIF •LOC'='ASM' ;SYSASM 
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RUN 0000400AIF * LOC ' = * FTN ' r SYSFTN 

RUN 0000500AIF ' LOG' = ' LNK' ; SYSLNK 

RUN 0000600AIF * LOG V ASM ' & ' LOG ' ?^ ' FTN ' & ' LOG V * LNK' Se ' LOG V '; CALL LOG 

SARD 0000000 BUILTIN SARD ,GZAYEB 

SEGURE 0000000 PROGDEF SEGURE 

SEGURE 0000100 PARAM $1,$2,$3 

SEGURE 0000200 DEFAULT SY01=-- ' ' ,SY02= ' ' 

SEGURE 0000300 IF '$2 ' ?^ ' ' j DEFAULT SY01=',$2' 

SEGURE 00004 00 IF '$3 '7^' ' j DEFAULT SY02=',$3' 

SEGURE 0000500 SEGUREl $1 

SECUREl 0000000 PROGDEF SEGUREl 

SEGUREl 0000100 PARAM $1,SY01,SY02 

SEGUREl 0000200 SYSXPAT SEGURE 

SEGUREl 0000300 $1SY01SY02 

SET 0000000 BUILTIN SET,CZAMA11 

SHARE 0000000 PROGDEF SHARE 

SHARE 0000100 PARAM DSNAME,USERID, OWNERDS 

SHARE 000 0200 SYSXPAT SHARE 

SHARE 0000300 DSNAME,USERID ,OWNERDS 

SHUTDOWNOOOOOOO PROGDEF SHUTDOWN 

SHUTDOWN0000200 SYSXPAT SHUTDOWN 

STAGK 0000000 BUILTIN STAGK ,GZAMZ101 

STET 0000000 BUILTIN STET,GZASV11 

STOP 0000000 BUILTIN STOP,GZAMGll 

STRING 0000000 BUILTIN STRING ,GZASB12 

SYNGGAT 0000000 BUILTIN SYBGGAT ,GZUFYll 

SYNONYM 0000000 BUILTIN SYN0NYM,GZATR11 

SYSGDD 0000000 PROGDEF SYSGDD 

SYSGDD 0000100 PARAM $1,'SYS$001' 

SYSGDD 0000200 SYSXPAT GDD 

SYSGDD 0000300 $1SYS$001 

SYSPDEF 0000000 BUILTIN SYSPDEF ,GZATP12 

SYSXPAT 0000000 BUILTIN SYSXPAT, GZATEll 

TIME 0000000 PROGDEF TIME 

TIME 0000100 PARAM MINS 

TIME 0000200 SYSXPAT TIME 

TIME 0000300 MINS 

TV 0000000 PROGDEF TV 

TV 0000100 PARAM DSNAMEl ,DSNAME2 

TV 0000200 SYSXPAT TV 

TV 0000300 DSNAME1,DSNAME2 

UNLOAD 0000000 BUILTIN UNLOAD, GZBTG 21 

UPDATE 0000000 BUILTIN UPDATE ,GZASR11 

UPDTUSEROOOOOOO BUILTIN UPDTUSER,GZAGG11 

USAGE 0000000 BUILTIN USAGE ,GZAGB11 

0000000 PROGDEF VMEREP 

000010 PARAM EMPTY 

0000200 SYSXPAT VMEREP 

0000300 EMPTY 

0000000 PROGDEF VSS 

0000100 PARAM USER 

0000200 SYSXPAT VSS 

0000300AUSER 

0000000 PROGDEF VT 

0000100 PARAM DSNAMEl ,DSNAME2 

0000200 SYSXPAT VT 

0000300 DSNAME1,DSNAME2 

0000000 PROGDEF W 

0000100 PARAM DSNAMEl ,DSNAME 2 

0000200 SYSXPAT W 

0000 300 DSNAME1,DSNAME2 

0000000 PROGDEF WT 

0000 200 PARAM DSNAME, DSNAME 2 , VOLUME, FAGTOR, STARTNO, ENDNO, - 

0000 300 PRTSP,$1,$ 2, $3, ERASE, HEADER, LINES, PAGE 

0000350 DEFAULT SY01= » ' , SY02= » ' ,SY03= ' ' , SY04= ' ' 

0000400AIF •PRTSP'='EDIT' ^DEFAULT SYO 1= ', ERASE '; IF ' $1 V ''; DEFAULT SY01=',$1' 

0000500AIF •PRTSP'='EDIT' ;WT2 DSNAME,DSNAME2 , VOLUME, FACTOR, STARTNO, ENDNO,PRTSP 

0000600 IF 'PRTSP V EDIT' ; DEFAULT SY01= ', HEADER' , - 

0000700 SY02=' , LINES' ,SY03=' ,PAGE' ,SY04=' , ERASE' ,• - 

0000800 WTl DSNAME,DSNAME2,VOLUME,FAGTOR,STARTNO,ENDNO,PRTSP,$l,$2,$3 

0000000 PROGDEF WTl 

0000100 PARAM DSNAME,DSNAME2 , VOLUME , FACTOR, STARTNO,ENDNO, - 

0000200 PRTSP,$1,$2,$3 
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0000300 IF •$1'7^' ' 
0000400 IF '$2 V ' 
0000500 IF •$3'7^* 



DEFAULT SY01=' ,$1' 

DEFAULT SYO 2=' ,$2' 

DEFAULT SYO 3=' ,$3' 
0000600 WT2 DSNAME,DSNAME2, VOLUME, FACTOR, STARTNO,ENDNO,PRTSP 
0000000 PROGDEF WT2 

0000200 PARAM DSNAME, DSNAME 2 , VOLUME , FACTOR, STARTNO, ENDNO, - 
0000 300 FRTSP,SY01,SY02,SY0 3,SY0 4 
0000400 SYSXPAT WT 

0000500 DSNAME, DSNAME2, VOLUME, FACTOR, STARTNO, ENDNO, PRTSP- 
0000600 SY01SY02SY03SY04 
0000000 PROGDEF ZLOGON 
0000000 PROGDEF ZZZZZZ 
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flowchart 406 
LIST command routine (CZASP) 66 

flowchart 292 
LISTEQ (CZATE3) 143 
LOCATE command routine (CZASN) 67 

flowchart 298 
LOGOFF command routine (CZAFN) 125 

flowchart 411 
LOGON command routine (CZAFM) 127 

flowchart 414 
L0G0N2 command routine (CZBTB) 130 

flowchart 418 
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LPCINIT 173,12 
LPC MAIN (CFADA) 184 

flowchart 536 
LPDS routine 156 
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marker processing 44 
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flowchart 301 
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flowchart 425 
MCASTAB routine 132 
MODIFY command routine (CZAEG) 133 

flowchart 427 
MSGEXPL routine (CZATJ3) 36 
MSGRESP routine (CZATJ4) 37 
MSGSYNTH routine (CZATJ2) 36 
MSGWR (CZAAD) 135 
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nonconversational task initiation 
null function 25 
NUMBER command routine (CZASU) 69 

flowchart 302 
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flowchart 430 
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PERMIT command routine (CZAFH) 136 

flowchart 431 
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PLIST 19 
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flowchart 441 
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flowchart m2 
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flowchart 449 
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processing 
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source language 18 3,3 
profile handler command routine (CZASZ) 70 

flowchart 305 
program interruption diagnostic processor 
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prompting routine (PRMPT) 139,13 
prototype profile, system (SYSPRX) 15 
PUSH C source list handler) 42 
PUSH (stack manipulator) 172 
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flowchart 543 
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flowchart 463 
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flowchart 306 
RELEASE command routine (CZAFJ) 148 

flowchart 468 
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flowchart 476 
REVISE command routine (CZASH) 72 
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RFR routine (CZASD3) 50 
RJE, QUIT/JOIN command routine (CZABS) 120 

flowchart 400 
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flowchart 478 
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flowchart 231 
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NUMSTG (CZAAC4) 32,13 

flowchart 232 
SCAN subroutines 

BACKUP (AMG2) 34 

flowchart 233 
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flowchart 233 
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flowchart 233 
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flowchart 486 
SHARE command routine (CZAFI) 159 
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flowchart 251 
PUSH/POP routine (CZASCl) 42 

flowchart 248 
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SYSIN routine (CZASC7,8) 46 

flowchart 254 
Update routine (CZASC6) 46 
flowchart 253 
STACK (stack manipulator) 172 
STARTFIX routine (CZASDl) 50 
STARTVAR routine (CZASD2) 50 
STET command routine (CZASV) 72 
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SYNONYM/DEFAULT catalog routine 
(CZATR) 160 
flowchart 488 
SYNSL (source list handler SYNONYM 

expander) 45 
SYSIN routine. Source list handler 46 
SYSPRD (primary dictionary) 14 
SYSPRO, listing of 557 
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System activity processor (CZAYE) 161 

flowchart 490 
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activity processor) 
system shutdown 10 
system startup 3 
system support routines 11-14 
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flowchart 492 
TRAM 25 

transaction table initialization 
CCZBTA/CZBSY) 73 
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flowchart 311 
translate and move input (TRAM) 25 
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flowchart 310 
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flowchart 494 
USAGE command routine (CZAGB) 166 
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EXPTEXT 37 
MSGEXPL 36 
MSGRESP 37 
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